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Add a scoring routine to Cliffhanger. 
Keep track of how well Willie's doing 
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Complete ttie intelligent game with routines 

to control the Fox and the geese, and look ahead 

BASIC PROGRAMMING 77 

PREDICTING THE UNPREDICTABLE 




HOW TO ORDER 
YOUR BINDERS 

UK and Republic of Ireland: 

Send £4,95 {inc p & p) (IR£5.95) for 
each binder to the address below: 

Marshall Cavendish Senices Ltd, 

Department 980, Newtown Road, 

Hove, Sussex BN3 7DN 
Australia: See inserts for details, or 
write to [NPLT, Times Consultants, 

PO Box 213, Alexandria, NSW 2015 
New Zealand: See inserts for details, or 
ivnte to INPLT, Gordon and Gotch 
(NZ.) Ltd, PO Box 1595, Wellington 
Malta: Binders are available from local 
newsagents. 
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There are four binders each holding 13 issues. 

BACK NUMBERS 

Back numbers are supplied at the regular cover price (subject to availability). 

UK and Republic of Ireland: 

INPUT, Dept AN, Marshall Cavendish Services, 

Newtown Road, Hove BN3 7DN 
Australia, New Zealand and Malta: 
Back numbers are available through your local newsagent. 



Use statistical methods and computer modelling 
to predict happenings in the real world 

BASIC PROGRAMMING 78 

^ATTERNS FROM NATURi 

Generate complex and beautiful patterns 
from simple beginnings 



COPIES BY POST 



Our Subscription Department can supply copies to any UK address regularly at £ 1 .00 each. 
For example the cost of 26 issues is £26.00; for any other quantity simply multiply the number 
ofissues required by £1.00. Send your order, with payment to: 

Subscription Department, Marshall Cavendish Services Ltd, 

Newtown Road, Hove, Sussex BN3 7DN 
Please state the ride of the publication and the part from which you wish to start. 
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rAILORING SPREADSHEETS 



Continue the spreadsheet program. Soon you'l 
be able to plan your expenses or business 



INDEX 

The last part of INPUT, Pari 52, will conlain a compieie, cross-referenced index. 
For easy access \o /our growing collection, g cumulative index to the contents 
of eoch issue is contained on the inside back cover. 
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INPUT IS SPECIALLY DESIGNED FOR: 

The SINCLAIR ZX SPECTRUM (16K,48K, 128 and + ), 
COMMODORE 64 and 1 28, ACORN ELEORON, BBC B 

and B+,andthe DRAGON 32 and 64. 

In addition,many of ihe programs and explanations ore also 
suitable fortheSINCLAIRZX81,COMMODOREVlC20,and 
TANDY COLOUR COMPUTER in 32 K with extended BASIC. 
Programs and text which ore specifically for particular machines 
are indicated by the following symbols: 



SPECIRUMKK, 
48K,128,aiid + 



WJM ACORN ELECTRON, 



BBCBaiidB+ 



COMMODORE 64 and 128 
DRAGON 32 and 64 



ZX8I 



VIC 20 



A TANDYTRSSO 

^ COLOUR COMPUIH 
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CLiFFHAN 
KEEPING m 





The 'CLIFFHANGER' listings published in this 
magazine and subsequent parts bear absolutely no 
resemblance to, and are in no way associated with, 
the computer game called 'CUFF HANGER' re- 
leased for the Cammadore 64 and published by 
New Generation Software Limited. 



No game is complete without a 
scoring routine, and even Willie 
won't be satisfied with just the bits 
of his picnic. Enter these routines 
and play the numbers game 

The scoring routine must also scroll on the 
appropriate screen and print up the score, 
level and lives on the screen. 



The following program calls up the appropri- 
ate screen, prints up the score and number of 
lives Willie has left and plays the tune: 



org 58676 


call tune 


call Isi 


ret 


call scp 


org 58303 


ldhl,119 


Isi ' 


Id a,(57343) 


org 58174 


Id b,48 


asc ' 


add a,b 


org 5821 7 


call asc 


print * 


Id a,41 


org 60000 


call print ■C^^^^~^ 


tune * 



ON THE STARTING BLOCKS 



The call Isi calls the routine that scrolls on the 
screen. This takes care of which screen is 
required, through its elb routine. 

Then the scp routine is called. This is the 
one that actually prints up the score and has 
not been given to you yet, so don't run the 
program until you have keyed in the scp 
program given below. HL is loaded with 1 19. 
This is print position of the number of lives. 
The print routine is going to be called and the 
HL register is used to carry the print position 
into it. 

A is loaded with the contents of 57,343. 
This is the memory location set aside to hold 



the number of lives that Willie's got left. The 
number 48 is loaded into B and the contents 
of the two registers are added together to give 
the ASCII code for the number that needs to 
be printed. 

The asc routine is then called. This is the 
routine which returns the pointer to the image 
data for the numeral needed in ROM. A is 
then loaded with 41 to set the colour of the 
letter and the print routine is called. This 
actually prints the number of lives Willie has 
left. The tune routine is then called which 
plays the tune. Note that the music routine on 
page 966 must now be re-assembled with an 
origin of 60000 — otherwise it will be 
overwritten bv the routine that follows it. 




SCORING 



This is the scp routine called in the routine 
above that actually prints the score on the 
screen: 



scp 



scq 



org 58939 
Id hl,55 
Id ix,57337 
ldb,6 
push be 
Id a,(ix + 0) 
Id b,48 
add a,b 
call asc 
Id a,41 



asc 



print 



call print 
inc hi 
inc ix 
pop be 
djnz scq 
ret 
org 58174 

org 58217 



FIGURING THE FIGURES 



HL is loaded with 55, the screen position the 
leading digit of the score will be printed at. 
The IX index register is loaded with 57,338, 
the address of the first byte which contains 
the score. The register can then be used as a 
pointer. 

B is loaded with 5, the number of digits in 
the score. This counter is saved by pushing it 
onto the stack. 

A is then loaded with the contents of the 
memory location pointed to by the IX 
register — in other words, the first byte con- 
taining the score. 48 is added to it to give the 
ASCII code and the asc routine is called to get 
the image data pointer in ROM. 

Then A is loaded with 41 to set the colour 
and print is called to print out the digit. 



HL is incremented to move along to the 
next print position — you'll notice that the 
score is being printed from the high digit to 
the low. IX is incremented to advance the 
score pointer to the next location containing a 
score digit. The score is stored as decimal 
digits — one in each memory byte — from the 
high digit to the low one, up memory. 

The B counter is popped back off the stack 
and decremented by the djnz instruction. And 
if the counter has not been decremented to 
zero the processor jumps back to print up the 
next digit. 

When it has been round the loop five times, 
printing up the five digits of the score, the 
processor drops out of the loop and returns. 



On the Commodore it is necessary to have a 
routine at this stage which works out where 
positions are on the screen. In previous 
routines you have specified X and Y coordi- 
nates. From those coordinates, the appropri- 
ate screen memory location must be 
calculated. 

The formula to do this is simple. There are 
40 character squares across the screen, so you 
must multiply the Y coordinates by 40 and 
add the X coordinate to it, then add on 1024, 
which is the base address of the screen 
memory, to give the appropriate location. 

Memory location $0352 is used to store the 
X coordinate and $0353 is used to store the Y 



coordinate. And locations $0384 and $0385 
are going to be used to store the resulting 
screen address. These locations are in the 
cassette buffer, but the cassette player is not 
going to be used while the game is being 
played and they are convenient RAM loc- 
ations to use to pass parameters in and out of 
this multiplication routine. 



ORG 


20480 


CLC 




LDA 


$0353 


LDA 


$0384 


STA 


$0384 


ADC 


$0386 


LDA 


#0 


STA 


$0384 


STA 


$0385 


LDA 


$0385 


CLC 




ADC 


$0387 


LDX 


#5 


CLC 




LOOP CLC 




ADC 


#4 


ROL 


$0384 


STA 


$0385 


ROL 


$0385 


CLC 




DEX 




LDA 


$0352 


BN£ 


LOOP 


ADC 


S0384 


LOA 


$0353 


STA 


$0384 


STA 


$0386 


LDA 


$0385 


LDA 


#0 


ADC 


#0 


STA 


$0387 


STA 


$0385 


LDX 


#3 


LDA 


$0384 


LOOPJ CLC 




STA 


$FB 


ROL 


$0386 


LDA 


$0385 


ROL 


$0337 


STA 


$FC 


DEX 




LDY 


#0 


BNE 


LOOPJ 


RTS 






MULTIPLICATION 



The Y coordinate in $0353 is loaded into the 
accumulator and stored directly in the low 
byte of the result, $0384. Then the high byte, 
$0385, is cleared by storing in it. 

Multiplication on an eight-bit processor is 
not an easy matter. It has to be done by a 
combination of shifts, rotates or repeated 
additions. To multiply a number by 40 it is 
easiest to multiply it by 8 — that is, 213 — then 
multiply it by 32 — which is 2|5 — and add the 
results together (32 + 8 = 40). Multiplication 
by powers of 2 is a relatively simple matter. 
To multiply by 2, you simply have to shift all 
the bits in a register one place to the left. So to 
multiply by 8 you have to shift the bits to the 
left three places — or shift them to the left one 



place three times — and to multiply by 32 you 
have to shift them five places to the left, or one 
place five times. 

The problem is dealing with the bits that 
are shifted out of the register. 

Fortunately the 6510 chip has a very useful 
instruction that helps you deal with this. It is 
called a rotate. This is subtly different from a 
straight shift, as it does not lose the bit from 
the end of the register when a shift is made. 
Nor does it simply fill in the free bit at the 
other end with a 0. A rotate fills the empty bit 
with the contents of the carry flag and resets 
the carry flag with the bit that is shoved out of 
the other end of the register. 

So here the index register X is loaded with 
5 — it is going to count the number of rotates, 
or the number of times that the contents of the 
register are going to be multiplied by 2 — and 
the carry flag is cleared. ROL $0384 rotates the 
contents of memory location $0384, or the Y 
coordinate, one place to the left. Note that 
because the carry flag is clear, a zero is put in 
the least significant bit. So the contents of this 
particular memory location are multiplied by 
2 without any extraneous bits and pieces 
being added in. 

Any bit that has been pushed out of the 
register during the rotate is now in the carry 
flag. So if a rotate is performed on the high 
byte of the result in $0385, any overflow will 
be automatically accounted for. The second 
rotate will take the overflow bit from the carry 
flag and put it into the least significant bit of 
the high byte. 




The high byte will not overflow of course. — 
It was set to 0, so you would need to do nine 
rotates before any bit entering the least 
significant bit on the first rotate would be 
, shifted out of the most significant bit. 

The X register is then decremented and the 
' BNE instruction loops the processor back until 
the contents of the two bytes have been 
shifted left five times— that is, until the 




I'itmmmi 






coordinate has been multiplied by 32. 

The Y coordinate in $0353 is then loaded 
into a temporary storage location at $0386 
and the next byte, $0387, is set to 0. The 
contents of these two locations are going to be 
shifted left in exactly the same way as before, 
only this time the loop — and the shift — is only 
three times. So $0386 and $0387 end up 
containing the Y coordinate times 8. 

Now the two results have to be added 
together. So the carry flag is cleared, the 
contents of $0384 are loaded into the ac- 
cumulator and the contents of $0386 are 
added to them. The result is stored back in 
$0384, which is where it is needed. 

Any overflow from this addition will now 
be in the carry flag, so when $0385 is loaded 
into the accumulator and added to the cont- 
ents of $0386, any carry is automatically 
taken into account. 

A further 4 is added into the high byte — 
4 X 256 =1024. This adds in the base address 
of the screen memory. 

Then the X coordinate in $0352 is loaded 
into the accumulator and added to the low 
byte of the result in $0384. The result is 
stored back in $0384. Any overflow from this 
addition is left in the carry flag. 

The high byte of the result is then loaded 
into the accumulator and has added to it. 
Note, this is an add with carry. So if there is a 
carry from the addition of the low byte with 
the X coordinate it will be added in now. If 
not, the contents of the accumulator remain 
unchanged. Either way, they are stored back 
in $0385. Note that the contents of the high 
byte can't overflow. For that to happen, the 
resulting address would have to be more than 
65,535 which the highest address permissible 
on the 64 K Commodore. 

The calculation is now complete, but for 
added convenience the result is copied from 
$0352 and $0353 into the zero-page memory 
locations $FB and $FC. Later, when the 
result needs to be accessed, say by indirect 
indexed address, the instructions can be 
shaved by a byte because zero page addressing 
is used and speed might be of the essence at 
that point in the game. 



This routine prints up the score, 
lives, clouds 
and seagulls:! 
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80DATA31,1,1 
90DATA17,1,83 
100DATA99,111,114 
110 DATA1 01 ,58,48 
120DATA48,48,48 
130DATA48,48,31 
140 DATA1,2,76 
150 DATA1 05,1 18,1 01 
160 DATA1 15,58,32 
170DATA32,32,32 
180DATA32,53,31 
190DATA2,4,17 
200DATA5,162,163 
210 DATA1 64,1 0,8 
220OATA8,8,165 
230 DATA1 66,1 67,31 
240 DATA1 0,5,1 62 
250 DATA1 63,1 64,10 
260 DATA8,8,8 
270 DATA1 65,1 66,1 67 
280DATA31,5,4 
290 DATA1 7,3,1 49 
300 DATA1 50,31,0 
310DATA8,U9,150 
320FORA% = &19E6TO 

&1A2D:READ?A%: 

NEXT 
400 FOR PASS = 0TO3 

STEP3 
410P% = 8i1A2E 
420 [OPTPASS 
430 .Heading 



440LDX#0 
450 .Lbl 

460LDA&19E6,X 
470JSR&1803 
480 INX 
490CPX#72 
500 BNELbl 
510 RTS 
520 .PtSL 
530LDA#31 
540JSR&FFEE 
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550LDA#7 
560 JSR&FFEE 
570LDA#1 
580 JSR&FFEE 
590LDA#17 
600 JSR&FFEE 
610LDA#1 
620 JSR&FFEE 
630LDX#0 
640 .Lb2 
650 LDA&8A,X 
660 CLC 
670 ADC #48 
680 JSR&FFEE 
690 I NX 
700CPX#6 
7t0 BNELb2 
720LDA#31 
730 JSR&FFEE 
740LDA#12 
750 JSR&FFEE 
760 LDA#2 
770 JSR&FFEE 
780 LDA&89 
790 CLC 
800 ADC #48 
810 JSR&FFEE 
820 RTS 
830 IN EXT 



HEADINGS 



The DATA which gives the words 'score', 
'lives', clouds and seagulls is read into a data 
table from &19E6 to &1A2D. And the ma- 
chine code routine that uses it is assembled 
directly after it. 

The assembly language program starts by 
initializing the index register X to to act as a 
loop counter. The byte of data from the data 
table pointed to by the base address, offset by 
X, is loaded into the accumulator and printed 
at the top of the screen by jumping to the 
user-defined graphic subroutine which is 
located at &1803. 

X is then incremented and compared to 72 
to check whether all the data has been output 
to the screen. If it hasn't, the processor 
branches back to deal with the next byte. If it 
has, the processor drops cut of the loop, hits 
the RTS and returns. 



FIGURIMG 



Loading A with 31 and calling the routine at 
&FFEE3 allows you to position the cursor. 
The 7 and 1 are the coordinates. Loading A 
with 17 and calling &FFEE sets the colour. 
Here colour 1 is used, but don't forget 
that you've redefined all the colours earlier. 
X is initialized to again .and the number 
in zero-page memory location &8A, offset by 
X, is loaded into the accumulator. This 




location and the five following it are used to 
store the score, in decimal digits, from the 
high digit to the low digit, up memory. 

The number 48 is added to the figure to 
give the ASCII, which is output to the screen 
by calling &FFEE. 

X is then incremented and the processor 
loops back to print out the next digit — unless 
it is the case that all six of them have been put 
up on the screen. 

The cursor is then repositioned at 12, 2 and 
the number in &89 — which is where the 
number of lives are stored — is converted into 
ASCII and output to the screen. The pro- 
cessor then returns again. 

To test it with the other machine code in 
the machine CALL&I B32, putting the level of 
the screen in &83. 
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This routine scrolls on the appropriate screen 
and prints up the sun, the lives and the 
score — and makes sure that the numbers that 
are going to be displayed on the screen do not 
bump into each other: 

ORG 19489 

JSR $4AA5 

LDX #1807 

LDU #17544 

LDB #5 
SCPR LDA #3 
SCPRI PULU Y 

STY,X+ + 

DEC A 

BNE SCPRI 

LEAX 26,X 

DECB 

BNE SCPR 

JSR PRSC 

LDX # 2063 

LDU #17574 

LDB #5 
SCPRZ LDA #3 
SCPRC PULU Y 

STY,X+ + 

DECA 

BNE SCPRC 

LEAX 26,X 

DECB 

BNE SCPRZ 

LDA 18239 

LDB #5 

MUL 

ADDD #17724 

TFR D,U 

LDX # 2070 

LDB #5 
SCPRD PULU A 

STA,X 

LEAX 32,X 



DECB 

BNE SCPRD 

JSR 30000 

RTS 

NOP 

NOP 
PRSC PSHS D,X,Y 

LDX #18240 

LDB #6 

LDY #1814 
PRSCB LDA ,X 

PSHS X,B 

BITB #1 

BNE ROLL 

LDB #5 

MUL 

ADDD #17724 

TFR D,X 

PSHS Y 

LDB #5 
PRSCA LDA,X-I- 

STA,Y 

LEAY 32,Y 

DECB 

BNE PRSCA 

PULS Y 

LEAY1,Y 
ROLRET PULSB,X 

L£AX1,X 

DECB 

BNE PRSCB 

PULS Y,X,D 

RTS 
ROLL LDB #5 

MUL 

ADDD #17724 

TFR D,X 

PSHSY 

LDB #5 
RLLA LDA,X + 

PSHS A 

ANDA #15 

LSLA 

LSLA 

LSLA 

LSLA 

ORA #5 

STA1,Y 

PULS A 

LSRA 

LSRA 

LSRA 

LSRA 

ORA #$50 

STA,Y 

LEAY 32,Y 

DECB 

BNE RLLA 

PULSY 

LEAY 2,Y 

BRA ROLRET 



THE SCREENING 



The first thing this routine does is iump to the 
subroutine at $4AA5 which scrolls on the 
screen and prints up the sun. 

Then X is loaded with the screen position 
which you want to start printing with the 
word 'SCORE'. U, the user stack pointer, is 
loaded with the start position of the word data 
in memory. This was input as a data table in 
an earlier part. And B is set to 5. The letters 
are only five bytes deep. 

There are five letters in the word 'SCORE' 
plus a space, making six. But A is only loaded 
with 3 as the Y register is going to be used to 
print two bytes at a time. 

The last two bytes of data are pulled off the 
stack — which is, in fact, the area of the data 
table pointed to by U. These two bytes are 
stored at the screen position pointed to by the 
X register and the one next to it. The X 
register is then incremented twice to move it 
onto the next screen position. 

A is then decremented and the BNE SCPRI 
branches back until all six bytes of data, which 
make up a single line of the word, have been 
printed. When one line has been printed, 
LEAX 26,X increments the X register by 26 to 
move it from the right-hand end of one line to 
the left-hand end of the one below it. There 
are 32 locations across the screen and six 
letters: 32 — 6 = 26. 

B is then decremented and the processor 
branches back to deal with the next line if all 5 
lines of the word have not been printed yet. 

When they have, JSR PRSC jumps off to the 
subroutine that prints the score on the screen. 



THAT'S LIVES 



The next routine which prints up the word 
'LIVES' is almost an exact repeat of the 
routine that printed 'SCORE' above — only 
the screen pointer in X and the data pointer in 
U are loaded with different values. The word 
is to be printed in a different position, 
obviously, and its data is in a different part of 
the data table. How the printing is done, 
though, is exactly the same. 

This routine does not jump to the subrout- 
ine to print up the actual number of lives 
though. That follows on directly after the end 
of the word-print routine. 

The number of lives Willie has left is 
stored in 18,239. The contents of this location 
are loaded into A. B is loaded with 5 and the 
contents of the two registers are multiplied 
together. 

The display data for the figure has to be 
located in the data table before it can be 
printed on the screen. Each figure requires 
five bytes of data to describe it, so to locate the 
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beginning of the right area of data you have to 
count along the data table in multiples of five. 

The result of a MUL — which multiplies the 
contents of A and B— is put in D. 1 7,724— the 
base address of the table — is then added to 
this, so the result points to the start of the 
appropriate figure's display data in memory. 

This pointer is then transferred into the 
user stack pointer, U, so that this area of data 
effectively becomes the user stack. 

Again X is loaded with the screen position 
where the number of lives is to be printed and 
B is loaded with 5, to count the five bytes of 
data needed to make up the figure. The first 
byte to figure display data is pulled off the 
user stack into A. Then it is stored at the 
screen position given by X. 

X is incremented by 32 this time, as only 
one figure is to be printed, and the screen 
pointer has to be moved down one screen 
position to fill in the next line of pixels of the 
figure. 

B is decremented and the processor bran- 
ches back to deal with the next byte if all five 
bytes haven't been printed on the screen yet. 

Then, to finish off, the processor jumps to 
the subroutine at 30,000 which plays the 
tune. And when it returns here, the RTS sends 
it back to BASIC. 

This RTS will be overwritten later, when 
the whole program is put together. It is 
followed by two NOPs — which are No 
operation instructions. These do nothing and 
are only here to make enough room for a JSR 
instruction, when the RTS is overwritten. 
Then the processor will have to be directed to 
the action loop driving the whole program. 



THE NUMBERS GAME 



The data for each pixel line of the figures 
takes up a whole byte. So if you print them 
directly next to each other, they tend to merge 
into each other and become illegible. 

To overcome that difficulty, the score print 
routine rolls figures along half a byte to create 
a gap between them and make the score 
readable. 

The PRSC routine begins with the contents 
of D,X,Y being pushed onto the hardware 
stack. This is to preserve their values. In fact, 
it is only the value in Y that is going to be 
needed later. But when you are writing 
machine code it is best to push the contents of 
all the registers you are going to use in a 
subroutine. You might decide that you need 
to carry an important parameter in a register 
later. So the rule is — if in doubt, push it. 

Memory location 18,240 holds the first 
byte of the score. The decimal value of each of 
the six digits of the score— from the highest to 
the lowest — are held in six memorv locations 



from 18,240 up memory to 18,246. 

There are six figures to be printed so B is 
loaded with 6. Y is loaded with the print 
position. 

A is loaded with the contents of the 
location pointed to X, which points to the 
score memory. Then the values in X and B are 
preserved by pushing them onto the stack. 

Bit zero of B is then checked. If B is even, 
that is, bit zero is not set, BNE ROLL branches 
off to the ROLL routine, which shoves every 
other figure half a space to the right. But if B 
is odd and bit zero is set, the processor 
continues with the next instruction. 

To print the figure up on the screen, you 
have to proceed in the same way as printing 
the lives. You multiply the figure required by 
5 and add the base address. 

This time, though, the resulting pointer is 
transferred into X and the print position 
pointer in Y is stored by pushing it onto the 
stack. 

The relevant byte of display data for the 
figure in question is then loaded into A and X 
is incremented. And it is then stored at the 
screen position pointed to by Y. Y is in- 
cremented by 32 to move down one line of 
pixels. B is decremented and the processor 
branches back to deal with the next byte of 
data until all five have been output to the 
screen. 

When it has finished the initial screen 
position pointer is pulled off the stack again. 
It is incremented to move it onto the next 
print position to the right. 

The values of counter in B and the score 
memory pointer in X are then pulled off the 
stack again. X is incremented ready to deal 
with the next figure to the right. And B is 
decremented, to count down the figures that 
have been dealt with. The processor then 
branches back to deal with the next figure, if 
they haven't all been dealt with yet. 

If all the figures have been printed on the 
screen, the Y,X and D registers are restored 
by pulling the values they had at the beginn- 
ing of the subroutine off the stack again. Then 
the processor returns to the place it was called 
in the main routine. 



ROLLIMG ALONG 



If the figure in B was even and the ROLL 
routine was called, the processor starts off by 
locating the start of the appropriate figure's 
data in the data table. It multiplies the score 
figure by five and adds on the base address, 
transfers the result into X, pushes the print 
position and loads the B register with the byte 
counter. 

LDA,X + loads the accumulator with a byte 
of the figure data and increments the pointer. 




This byte is pushed onto the hardware stack 
to preserve it. 

The contents of A are then ANDcd with 15, 
which preserves the low nybble and clears the 
high one. Four LSLAs — Logic Shift Lefts on 
the Accumulator — move the low nybble a bit 
at a time into the high nybble. 

ORing the result with 5 puts yellow — the 
background colour — into the low nybble. 
Then it is stored at the print position given by 
the screen pointer Y plus 1. This prints the 
right-hand half of the bit pattern on the 
screen at the position two to the right of the 
preceding figure — but shoved half a space to 
the left. 

The whole bit pattern is then pulled off the 
hardware stack again and the high nybble is 
shifted right, into the low nybble. ORing with 
50 hex sets the high nybble to bright yellow. 
And the resulting byte is stored at the print 
position pointed to by Y. This prints the left- 
hand side of the bit pattern in the right-hand 
half of the print position following the pre- 
ceding figure — and marries it up to the right- 
hand half of the bit pattern in the left-hand 
half of the next print position. The other two 
halves of the print positions are filled in with 
the background colour yellow, effectively 
leaving a half digit gap between each figure. 

LEAY 32,Y increments Y by 32 to deal with 
the next line of pixels down the figure. B is 
decremented and the processor branches back 
to pick up the next byte of the bit pattern, 
unless all five lines of pixels have already been 
printed. 

When all that has been done, the processor 
drops out of the loop and increments Y by a 
further 2. This moves the screen pointer two 
positions to the right — effectively the even- 
numbered figure has occupied two adjacent 
screen positions. 

BRA ROLRET then branches always back to 
the label ROLRET, where the pointers are 
updated before the routine jumps back to deal 
with the next — odd-numbered — digit. 
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Allow your computer to collect its 
thoughts before the game 
commences. With these routines it 
can play fox or geese, and can look 
ahead to improve its play 



This is the third and final part of the Fox and 
Geese article. The remaining routines are 
those which will enable the computer to take 
the part of either the fox or the geese. In fact 
the machine can be set to play both parts, 
when it competes against itself, or you could 
set it to play neither and play against one of 
your friends using the computer instead of a 
board and pieces. 



210 LET P = B(G(1 )) + B(G(2)) + B(G(3)) + 

B(G{4)) 
220LETX=F: IF P<B(32) THEN LET 

P = P-BX:LETX=33-F 
230 LET P = P*B(X): RETURN 
250LETF=FNA(ABSP)-30:LET 

B = P/B(F}:IFe<0THENLET 

B = B + BX: LETF = 33-F 
260FORA = 1 TO 4: LET G(A) = FN 

A(B) + 1 ; LET B = B - B(G(A)): NEXT A: 

RETURN 



210P = B{G(1)) + B(G(2)) + 

B(G(3)) + B(G{4)) 
220X = F:IFP<B(31)THEN 

P = P-BX:X = 31-F 
230P = P*B(X}:RETURN 
250 F = FNA(ABS(P))-31:B = P/B(F):IF 

B<0THEN B = B + BX:F = 31-F 
260 FORA = 1T04:G(A} = FNA(B):B = B- 

(G(A)):NEXTA:RETURN 



SH 



210P = B(G(1)) + B(G(2)) + B(G(3)) + 

B(G(4)) 
220X = F:IFP<B(31)THENP = P-BX: 

X = 31-F 
230 P = P*B(X):RETURN 
250 F = FNA(ABS(P)) -31 :B = P/B(F): 

IFB<0THENB = B + BX:F = 31-F 
260FORA = 1TO4:G(A) = FNA{B): 

B=B-B(G(A)):NEXTA:RETURN 



l7.^T 



210P = B(G(1)) + B(G{2)) + B(G(3)) + 

B(G{4)) 
220X = F:IFP<B(31)THENP = P-BX: 

X = 31-F 
230P = P'B(X):RETURN 
250 F=FNA(ABS(P)}-31:B = P/B(F): 

!FB<0THENB = B + BX:F = 31-F 
260FORA = 1TO4:G(A) = FNA(B}: 

B = B-B(G{A)}:NEXT:RETURN 

These are two of the most important routines 
in the program. The routine from Line 210 to 
Line 230 evaluates the playing position and 
packs it into a single number. Conversely, 
when the program has decided on the value of 
the best move, it has to convert that number 
into amove — or set of positions for the pieces. 
Lines 250 and 260 unpack the single value 
into the set of values needed for positioning 
the pieces. 

These subroutines are called very frequ- 
ently during the program, so they have been 
placed right at the start of the program. 




FOX'S MOVE 



1010 GOSUB 210 
1020 GOSUB 310: GOSUB 250 
1030 IF F> 28 THEN PRINT AT 21,0; 
"THE FOX HAS WON DD 

nnnnnnnnnnnnn": 

GOTO 1410 
1032 GOSUB 410: IF V = H THEN PRINT 
"THE GEESE HAVE WON DD 

nnnnnnnnnDD": 

GOTO 1410 
1040 IF PFTHEN GOTO 1110 
1050 INPUT "MOVE FOX TO ";B: IF B= -1 

THEN GOSUB 2710: GOTO 1030 




1060 FOR A=1 TOX(F);LETX=M(A,F):IF 
X = B THEN IF NOT (FN X(X)) THEN LET 
F=B: GOSUB 210: 
GOTO 1200 

1070 NEXT A: PRINT AT 21,0;"THAT 

iSNOTLEGALDnnnn 

D D D D D D D D D D ": GOTO 1 050 
1110 LET L = SF: LET M = SF: LET 

V(M) = E'M:IFM>4THEN DIM 

R(HF + 3):DIMS(HF + 3) 
1112 GOSUB 1120: GOTO 1200 
1120IFL = 1 THEN GOTO 410 
1122 IF L<M-2THEN GOSUB 1610: IF 

VO0THEN RETURN 
1130 LET L = L-1: LETV(L} = H'L: LET 

A(L) = X(F):LETF(L) = F 
1140 LET F = IVI{A(L),F{L)) 
1150 IF FN X(F} = THEN GOSUB 1320: IF 



II 



PLAYING AT HIGHER LEVELS 

FOX'S MOVE ROUTINE 

MOVING THE GEESE 

CHOOSING THE BEST MOVE 

IN A 'ONE MOVER' 



PLAYING AT HIGHER LEVELS 
USING THE ALPHA-BETA 



ALGORITHM 



USING THE HASH-CODE TABLES 



FOR A FASTER GAME 



V>V(L) THEN LETV(L) = V: LETP(L) = F: 

IFV>V(L + 1)THENLETF=F(L):LET 

L = L + 1: RETURN 
1160 LET A(L) = A(L) -1: IF A{L) > THEN 

GOTO 1140 
1170LETV = V(L):LETF = F(L}:LET 

L = L + 1:IFL = )VITHENLET 

F=p(M-1):GOSUB210: RETURN 
1172 IF L<M-2 THEN GOSUB 1510: 

RETURN 
1180 RETURN . 



1010 GOSUB 210 
1020 GOSUB 310:GOSUB 250 
1030IFF>27TH£N PRINnAB(8); 
"THEFOXHASWON":GOTO1410 




1032 GOSUB410:IFV = HTHEN PRINT 

TAB(8)i"THE GEESE HAVE ^ 

WON":GOTO1410 

1040 IF PF THEN PRINTTAB(8); 
"THINKING... ":GOTO 1110 

1050 INPUT UU II 11 uu kill 

MOVE FOX TO";B 
1055 GOSUB 340:IFB=-1 THEN 

PRINnAB(8);"THE GEESE HAVE 

WON":GOTO1410 
1060 FORA = 0TOX(F):X = M(A,F):IFX=B 

THENIFNOTFNX(X)THENF = e:GOSUB210: 

GOTO1200 
1070 NEXTA:PR1NnAB(8);"THAT IS NOT 

LEGAL":GOTO1050 
1110 L = SF:M = SF:V(M) = E*M:IFM>4 

THENFORA = 0TOHF;R(A} = 0: 

NEXTA 
1112GOSUB1120:GOTO1200 
1120IFL=1THEN410 




1122IFL<M-2THENGOSUB1610: 

IFVO0THEN RETURN 
1130 L=L-1:V(L} = H"L:A(L)=X(F): 

F(L) = F 
1140F=M(A(L),F(L)) 
1150 IFFNX(F)<>0THEN 1160 
1 1 55 G0SUB1 320:IFV > V(L)THENV(L) = V: 

P(L) = F:IFV>V(L + 1)THENF=F(L): 

L = L + 1:RETURN 
1160A(L) = A(L)-1:IFA(L)>=0THEN1140 
1170V = V(L):F = F(L):L = L + 1:IFL=M 

THENF = P(M-1):GOSUB210:RETURN 
1172 IFL<M-2THENGOSUB1510:RETURN 
1180 RETURN 



1010 GOSUB 210 

1020 GOSUB 31 0:GOSUB 250 

1030 IF F>27 THEN PRINT TAB(8);"THE FOX 

HASWON";GOTO1410 
1032 GOSUB410:IFV = H THEN PRINT 

TAB(8);"THE GEESE HAVE 

WON":GOTO1410 
1040 IF PFTHEN PRINT TAB(8); 

"THINKING,.. ":GOTO 1110 
1050 INPUT TAB(8)"M0VE FOX TO n"B 
1055 GOSUB 340 
1060 A = 0:REPEATX = M(A,F):IFX<>B OR 

FNX(X)THEN A = A + 1:UNTIL 

A>X(F):ELSE UNTIL TRUE: 

F = B:GOSUB210:GOTO1200 
1070 PRINT TAB(8};"THAT'S NOT LEGAL"; 

GOTO 1050 
1110L = SF:M = SF:V(IVI} = E'M:IFIVI>4 



THEN FOR A = 0TOHF:R(A}=0:NEXTA 
1112 GOSUB 1120:GOTO 1200 
1120IFL = 1 THEN 410 
1122 IF L<(M-2) THEN GOSUB 1610: 

IFVO0 THEN RETURN 
1130L=L-1:V(L} = H*L:A(L)=X(F): 

F(L) = F 
1140F = M(A(L),F(L)) 
1150 IF FNX(F) = THEN GOSUB 1320:IF 

V>V(L}THENV(L)=V:P(L) = F: 

IFV>V(L + 1)THENF = F(L}:L = L + 1: 

RETURN 
1160 A(L)=A{L)-1:IFA(L)>=0 THEN 1140 
1170V = V(L):F = F(L):L = L + 1: 

IFL=MTHENF=P(M-1): 

GOSUB210:RETURN 
1172 IF L<(M-2) THEN GOSUB1510: 

RETURN 
1180 RETURN , I 

1010 SCREEN1,0:GOSUB210:GOTO1030 

1020XX = FNXX(G):YY=FNYY(G):PUT 
(XX, YY) - (XX + 1 9,YY + 1 9),SQ,PSET:XX 
= FNXX{G(C)):YY = FNYY(G(C)) + 5: 
PUT(XX,YY) - (XX + 1 9,YY + 9),GS,PSET 

1030 CLSilF F > 27 THEN PLAYV$: 
PRINT@7,"THE FOX HAS 
WON":GOTO1410 

1032 GOSUB410:IF V = H THENPLAYVS; 
PRINT@6;'THE GEESE HAVE 
WON":GOTO1410 

1 040 LINE{1 80,0) - (255,1 91 ),PRESET, 
BF:IF PFTHENDRAW"BIVl180,50C4" + 
TH$:GOTO1110 




1050 DeAW"BM180,80C4" + MW$:XX = 

FNXX(F):YY=FNYY(F):GOSUB1810: 

B = 4*INT(YY/20):B = FNCN(B) 
1055 IF B= -1 THENPLAYV$:PRINT@6, 

"THE GEESE HAVE WON":GOTO1410 
1060FORA = 0TOX(F}:X = M(A,F): 

IFX=BANONOTFNX(X)THENA = X(F): 

XX = FNXX(F):YY = FNYY(F):PUT 

(XX,YY}-(XX + 19,YY + 19), 

SQ,PSET:F=B:GOSUB210:NEXT: 

GOTO1200 
1070 NEXT:GOSUB5000:GOTO1040 
1110 L = SF:M = SF:V(M) = E*M:IFM>4 

THENFORA = 0TOHF:R(A)=0:NEXT 
1112 LF = F:GOSUB1120:XX = FNXX(LF): 

YY = FNYY(LF):PUT{XX,YY) - (XX + 1 9, 

YY + 19),SQ,PSET:GOTO1200 
1120IFL = 1 THEN410 
1122 IFL<M-2 GOSUB1610:IF V<>0 

THEr^ RETURN 
1130L=L-1:V(L) = H'LA(L)=X(F): 

F(L) = F 
1U0F = M(A(L),F(L}) 
1150IFFNX(F) = 0GOSUB1320:IFV>V(L) 

THENV(L)=V:P(L) = F:IFV>V{L+1) 

THEN F = F(L):L=L + 1: 

RETURN 
1160A(L)=A(L)-1:IFA(L)>= 0THEN 

1140 
1170V = V(L):F = F(L):L=L + 1: 

IFL = MTHENF = P(M-1): 

GOSUB210:RETURN 
1172 IF L<M-2GOSUB1510 
1180 RETURN 

Lines 1020 to 1180 handle the fox's move. 
The routine uses the board display subrout- 
ine to display the current status of the board, 
then goes on to check if the fox has won in 
Line 1030. It then checks if there is at least 
one legal move open to the fox (or else the 
geese win) in Line 1032. 

If the player is controlling the geese, Lines 
1050 to 1070 take the input and check its 
legality. If, on the other hand, the computer is 
controlling the fox, Lines 1110 to 1112 look 



after the move. The number of plies that the 
program is looking at, M, and the current ply 
being considered, L, are set up in Line 1110. 
Lines 1120 to 1180 are a subroutine to 
evaluate the best move. 

Four arrays are used in the best move 
subroutine: A contains the number of moves 
still to try; V, the best result so far; P, the move 
that yields that result; and F, the fox's 
previous position. 



MOVING THE GEESE 



500LETV = 0: F0RC = 1 TO 4: LET 
G = G(C):F0RA = 1 TO Z(G): LET 
X=M(A,G): IFXoFTHEN IF NOT FN 
X(X) THEN RETURN 

502 NEXT A: NEXT C: LETV = 1: 
RETURN 

1200 GOSUB 310: GOSUB 250 

1202 IF F> 28 THEN PRINT AT 21,0; 
"THE FOX HAS WONG DD 

□ nnnnnDnnnnDD": 

GOTO 1410 
1204 GOSUB 500: IF V THEN PRINT AT 
21,0;"THE FOX HAS WOND D D O D 

nnnnnDDnnna": goto 

1410 
1210 IF PG THEN GOTO 1310 
1220 INPUT "WHICH GOOSE TO MOVE ? '^G: 

IFG=-1 THEN GOSUB 2710: GOTO 

1202 
1230LETC = FNZ(G): 1FC = 0THEN PRINT 

AT 21,0;"NO GOOSE AT ";G;"": GOTO 

1220 
1240 INPUT "WHERE TO ";l: IF 1= -1 THEN 

GOSUB 2710: GOTO 1202 
1250 IF FN X(l) THEN PRINT AT 21,0; 

"NOT ONTO ANOTHER GOOSE 

nnnaannn": goto 1220 

1260 IFI = FTHEN PRINT AT 21,0; 
"NOT ONTO FOXD D D D D D □ 

□ nnnnnnnnDDn": 

GOTO 1220 



1270 FOR A = 1 TOZ(G):IFM(A,G) = ITHEN 

LETG(C) = I: GOTO 1010 
1280 NEXT A: PRINT AT 21,0;"THAT 

iSNOTLEGALnDDnnnn 
nnannnnn": GOT0 1220 

1310 LET L = SG: LETM = SG: LET 

V(M} = H'M:IFM>4THENDIM 

R(HF + 3): D1MS(HF + 3) 
1312 GOSUB 1320: GOTO 1020 
1320IFL = 1 THEN GOTO 510 
1322 IF L<M-2THEN GOSUB 1610: IF 

VO0THEN RETURN 
1 324 LET L = L - 1 : LET V(L) = E-L: LET C = 1 
1330 LET C(L) = C: LET F{L) = G(C): LET 

A(L) = 1: IFA(L)>Z{G(C))THEN GOTO 

1362 
1340 LET B = M(A(L),F(L}): LET X = FN X(B): 

LETG(C) = B: IF X OR B = F THEN GOTO 

1360 
1350 GOSUB 1120: LET C = C(L): IF V<V(L) 

THEN LETV(L)=V: LET 

P(L)=G(C)+C"32 
1355 IF V<V(L) THEN LET G(C) = F{L): LET 

L = L + 1: RETURN 
1360LETA(L)=A(L)+1:IF 




A(L)<=Z(F(L)} THEN GOTO 1340 
1362LETG(C) = F(L):LETC = C + 1:IF 

C<5 THEN GOTO 1330 
1370 LET V = V(L): LETL = L + 1: IF L = M 

THEN LET C=INT(P(L-1)/32): LET 

G(C) = P(L-1)-C*32: GOSUB 210: 

RETURN 
1372 IF L<M-2THEN GOSUB 1510: 

RETURN . 'r • 

1380 RETURN 



500V=-1:FORC = 1TO4:G = G(C}:IF 

Z(G)<0THENNEXT:RETURN 
502 FORA = 0TOZ(G):X = M(A,G):V = VAND 

(FNX(X)ORX= F):NEXT:NEXT:RETURN 
1200GOSUB310:GOSUB250 
1202 IFF >27THENPRINnAB(8); 

"THE FOX HAS WON": 

GOTO1410 
1204 GOSUB500:IFVTHEN PRINT 

TAB(8);"THE FOX HAS WON": 

GOT0 1410 



mmMmmm^ 



38 Jl 



1210 IF PG THEN PRINnAB{8); 
"THINKING... ":GOTO 1310 
1 220 INPUT "II U U II U U il U 

WHICH GOOSE TO MOVE";G 
1225 GOSUB 340 
1230C=FNZ(G):IFC = 0THENPRINT 

TAB(8);"N0 GOOSE AT";G: 

GOTO1220 

1240 INPUT UU II II II UU II 

WHERE TO";l 
1245 GOSUB 340:IF I = -1 THEN 

PRINnAB(8);"THE FOX HAS 

WON":GOTO1410 ' ^ 

1250 IFFNX(I)THEN PRINnAB(8); 

"NOT ONTO ANOTHER GOOSE": 

GOTC1220 
1260IFI = FTHENPRINTTAB(8); 

"NOT ONTO FOX": — 

GOTO1220 
1270 FORA= -1T0Z(G):IFA> =0THENIF 

M(A,G) = ITHENG(C) = I: 

GOTO1010 




1280 NEXTA:PRINT TAB(8);"THAT IS NOT 

LEGAL":GOTO1220 
1310 L = SG:M = SG:V(M) = H'M:IFM>4 

THENFORA=0TOHF: 

R(A) = 0:NEXTA 
1 31 2 G0SUB1 320:GOTO1 020 - -»- 

1320IFL = 1THEN510 
1322 IFL<M-2THENGOSUB1610:IFV< >0 

THENRETURN 
1324L = L-1:V(L) = E'L:C = 1 
1330C(L) = C:F(L) = G(C):A(L) = 0:IF 

A(L)>Z(G(C))THEN1362 
1340B = M(A(L),F{L)):X=FNX(B):G(C) = B: 

IFXORB = FTHEN1360 
1350GOSUB1120:C = C{L) 
1355IFV<V(L)THENV(L) = V:P(L) = G(C) + 

C'32:IFV<V{L+1)THENG(C) = F(L): ■ 

L = L + 1:RETURN 
1360 A(L) = A(L) + 1:IFA(L) < =Z{F(L))THEN 

1340 
1362G(C) = F(L):C = C + 1:IFC<5THEN1330 
1370 V = V(L):L=L + 1:IFL = MTHENC = INT 



(P(L-1)/32):G(C) = P(L-1)AND31: 

GOSUB210:RETURN 
1372IFKM-2THENGOSUB1510: 

RETURN _^^ 

1380 RETURN 



500V=-1:FORC = 1TO4:G = G(C):IF 

Z(G)<0THEN NEXTC:RETURN 
502FORA = 0TOZ(G):X = M(A,G): 

V = VAND(FNX(X)ORX=F):NEXTA: 

NEXTCiRETURN 

1200GOSUB310:GOSUB250 ' 

1202 IF F> 27 THEN PRINT TAB(8); 

"THE FOX HAS WON":GOTO1410 
1204 GOSUB 500:IFV THEN PRINT 

TAB(8);"THE FOX HAS WON":GOTO1410 
1210 IF PG THEN PRINT TAB(8); 

"THINKING. ..":GOTO1310 
1220 INPUnAB(8}"WHICH GOOSE TO 

MOVED" G:IFG=-1 THEN 

GOSUB2710:GOTO1202 
1230 C = FNZ(G):IFC = THEN PRINT 

TAB(8);"N0 GOOSE ATn";G:GOTO 1220 
1240INPUTTAB(8)"WHERETO", I 
1250 IFFNX(I) THEN PRINnAB(8); 

"NOT ONTO ANOTHER GOOSE": 

GOTO 1220 
1260 IFI = F THEN PRINT TAB(8); 

" N OT ONTO FOX" :G0TC1 220 ^ 

1270 IF Z(G)>=0 THEN A = 0: 

REPEAT:IFM(A,G)<>ITHEN 

A = A + 1:UNTILA>Z(G):ELSE UNTIL 

TRUE:G(C) = I:GOTO1010. 
1280 PRINTTA6(8);"THAT'S NOT 

LEGAL":GOTO1220 
1310L = SG:M=SG:V(M) = H"M: 

IFM>4THEN FOR A = 0TOHF: 

R(A)=0:NEXTA 
1312 GOSUB1320:GOTO1 020 - - 
1320IFL = 1 THEN510 
1322 IF L<M-2 THEN GOSUB1610: 

IFVO0 THEN RETURN 
1324L = L-1:V(L) = E'L:C = 1 
1330C(L} = C:F(L) = G(C):A(L) = 0:IF 

A(L)>Z(G(C))THEN1362 
1340B = M(A(L),F(L)):X=FNX(B): 

G(C) = B:IFXOR B=FTHEN 1360 



1350GOSUB1120:C = C(L):IFV<V(L)THEN 

V(L)=V:P{L)=G(C) + C*32:IF 

V<V(L + 1) THEN G(C) = F(L):L = L + 1: 

RETURN 
1360A(L)=A(L) + 1;IFA(L)<=Z(F(L}) 

THEN1340 
1362G(C) = F(L):C = C + 1:IFC<5THEN : 

1330 
1370 V = V(L):L=L + 1:IFL = M THEN 

C=INT(P(L-1)/32):G(C) = P{L-1) AND 

31:GOSUB210:RETURN 
1 372 IFL < M - 2 THEN G0SUB1 51 0: 

RETURN 
1380 RETURN "^ 



500 V= -1:F0RC = 1T04:G = G(C}:IF 

Z(G)<0THENN£XT:RETURN ^ 

502 FORA = 0TOZ(G):X = M (A,G):V = V AND 

(FNX(X)0RX = F}:NEXTA,C:RETURN 
1200GOSUB250:XX = FNXX(F): 

YY= FNYY{F) + 5:PUT(XX,YY) -(XX + 19, 

YY + 8),FX,PSET 
1202 IF F>27THENPLAYV$:PRINT 

@6,"THEF0XHASW0N": 

GOTO1410 
1204 GOSUB 500;IFV THEN PLAYVS: 

PRINT'THE FOX HAS WON": 

GOTO1410 
1 21 UN E(180,0) - (255,1 91 ),FRESET,BF:IF 

PG THENDRAW"BM180,50C4" + TH$: 

GOTO1310 
1220XX=FNXX(G(1)):Yy = FNYY(G(1)): 

DRAW"BM180,80C2" + WG$:G0SUB1 81 
1225 G = 4'INT(YY/20}:G = FNCN(G} 
1230 C = FNZ(G):IF C = GOSUB5000: 

GOTO1210 
1 240 DRAW'BMI 80,1 1 0C3" + MW$:GOSUB 

1810:I = 4-|NT(YY/20}:I = FNCN(I) 
1245 IF 1 = 1 THENPLAYV$:PRINT@7, * 

"THEFOXHASWON":GOTO1410 
1250IFFNX(I)GOSUB5000:6OTO1210 ^ 
1 260 I Fl = F GOSU B5000:GOTO1 21 
1270 FORA= -1T0Z(G);IFA> =0 THENIF 

M(A,G) = ITHENXX = FNXX(G(C)): 

YY = FNYY(G(C)):PUT(XX,YY)-(XX + 19, 
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YY + 19},SQ,PSET:G(C) = I:XX=FNXX(I): 
'^, YY=FNYY(l);PUT(XX,YY + 5)-(XX + 19, 

YY + 14),GS,PSET:A = Z(G}:NEXT: 

GOTO1010 
1280 NEXT:GOSUB5000:GOTO1210 
1310 L = SG:M=SG:V(M) = H*M:IFM>4 

THENFORA = 0TOHF:R(A)=0:NEXT 
1312 GO?UB1320:GOTO1 020 
1320IFL-1 THEN510 
1322 IFL<M-2 GOSUB1610:IF V< >0 

THEN RETURN 
1324L=L-1:V(L) = E"L:C = 1 
1330 C(L) =C:F(L) = G(C):A(L) =0:IF 

A(L)>Z(G(C))THEN1362 
1340B = M(A(L},F(L)):X=FNX(B):G = G(C): 

G(C) = B:IFXORB = FGOTO1360 
1350GOSUB1120:C = C(L):IFV<V(L)THEN 

V(L)=V:P(L) = G(C) + C*32:IF 
■ V<V(L+1)TH£NG = G(C):G(C) = F(L): 

L = L + 1:RETURN 
1360 A(L) = A(L) + 1 :IFA(L) < =Z(F(L)) 

THEN1340 
1362G = G(C):G(C) = F(L):C = C+1:IFC<5 

THEN1330 
1370V = V(L):L=L + 1:IFL=M THENC=INT 

(P{L-1)/32):G = G(C);G(C)=P(L-1) 

AND31:GOSUB210:RETURN 
1372IFL<M-2GOSUB1510 
1380 RETURN 

The routine from Line 1200 to Line 1380 
handles the geese. There are subroutines for 
when the player controls the geese — lines 
1220 to 1290— and when the computer con- 
trols the geese — Lines 1320 to 1380. 





BEST MOVES 



410LETV = H:FORA = X(F)TO1 STEP -1: 

LET X = M(A,F): IF FN X(X) THEN NEXT A; 

LETL = 1: RETURN 
420 LET B = F: LET F = X: GOSUB 210: LET 

V = P: LET F = B: LET L = 1: RETURN 
510LETV = E: F0RC = 1 10 4: LET 

G = G(C):IF -B(G)>VTHEN GOTO 530 
520FORA = 1 TOZ(G):LETX = M(A,G):IF 

FN X(X) OR (X = F) THEN NEXT A: GOTO 

530 
528 LET V = B(X) - B(G): LET D = C: LET 

B=X 
530 NEXT C: LET G = G(D): LET G(D) = B: 

GOSUB 210: L£TV = P: LETG(D) = G: 

RETURN . 
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410 V = H:FORA = X(F)TO0STEP-1; 

X = M(A,F):)FFNX{X)<0THENNEXT:L=1: 

RETURN 
420 B = F:F = X:GOSUB210:V = P:F = B: 

L = 1:RETURN 
510V = E:FORC = 1TO4:G = 6(C):IF 

-B(G)>VTHEN530 
520FORA = 0TOZ(G):X = M(A,G):IFFNX(X) 

ORX=FTHENNEXT:GOTO530 
528V = B(X)-B(G):D = C:B = X 
530NEXTC:G = G(D);G(D) = B:GOSUB210: 

V=P:G(D)=G;RETURN 



410V = H:A = X(F):REPEAT:X=M(A,F):IF 

FNX(X)<0THENA = A-1:UNTILA<0: 

L = 1:RETURN 
420UNTILTRUE:B = F:F = X:GOSUB210: 

V = P:F = B:L = 1:RETURN 
510V=E:FORC = 1TO4:G = G(C):IF 

-B(G)>VORZ{G)<0THEN530 
520A = 0:REPEAT:X = M(A,G):IF FNX(X) OR 

(X=F) THEN A = A + 1:UNTIL A>Z(G): 

GOTO530 



528 UNT1LTRUE:V = B{X) - B(G):D = C:B = X 
530 NEXTC:G = G(D):G(D) = B:GOSUB 210: 
V = P:G(D) = G;R£TURN 

410 V = H:FORA = X(F)TO0 STEP-1: 

X=M(A,F):IFFNX(X)<0THENNEXT:L = 1; 

RETURN 
420 B = F:F = X:G0SUB21 0:V = P:F = B: 

L = 1:A = 0:NEXT:RETURN 
510V = E:FORC = 1TO4:G = G(C):IF 

-B(G)>VTHEN530 
520FORA=0TOZ(G):X = M(A,6):IFFNX(X} 

ORX = FTHENNEXT:GOTO530 
528V = B(X}-B{G}:D = C:B = X 
530 NEXT:G = G(D):G(D) = B:GOSUB210: 

V=P:G(D)=G:IFSG = 1 THENG{D) = B: 

C = D 
540 RETURN . 

These subroutines are concerned with the 
'one mover' — in other words, at this stage the 
computer is only looking one move ahead 
when searching for the best move. 

Lines 410 and 420 go through all the 
possible moves open to the fox, using the map 
array M, set up in the subroutine starting at 
Line 2110 (see earlier). The subroutine re- 
turns a value of P, configuration after best 
move, and V, evaluation after best move. 

Lines 510 and 530 are a similar routine, 
but this time it looks for the best move for the 
geese. P and V are set in the same way as in the 
previous subroutine. 

In either case, GOSUB 210 picks the best 
move from those evaluated. 



THE HASH CODE TABLE 



1510 GOSUB 210: LET C = P 

1520 LET C = C-INT((C/HF + C)-C)"HF: 
IF C<0 OR C> =HFTHEN GOTO 1520 

1550 FOR A = C-h1 TOC + 4:IFR(A)<>0 
AND R(A) < > P THEN NEXT A: RETURN 

1560 LET R(A) = P: LET S(A} = V: RETURN 



Ifcs 
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1610 GOSUB 210: LET C = P 

1620 LET C = C-INT ((C/HF+C)-C)'HF: 

IF C<0 OR C> = HF THEN GOTO 1620 
1650 FOR A = C + 1 TO C + 4: IF R(A)<>0 

AND R(A) <> P THEN NEXT A: LET 

V = 0: RETURN 
1660 LET V = S(A)*(R(A) = P): RETURN 



mwM 



sa 



1510GCSUB210:C = P - ^ 

1520C = C-INT((C/HF + C)-C)"HF:IFC<0 

ORC>=HFTHEN1520 
1550 FORA = CTOC + 4:IFR(A)<>0AND 

R(A)<>PTHENNEXT:RETURN 
1560R(A) = P:S(A)=V:RETURN 
1610GOSUB210:C = P 
1620C = C-iNT((C/HF + C) 



1510GOSUB210:C = P 

1520C = C-INT((C/HF + C)-C)'HF:IFC<0 

ORC>=HFTHEN1520 
1 550 FORA = C TOC + C:IFR(A) <> 0AND 

R(A)<> PTHENNEXT:RETURN 
1560 R(A) = P:S(A)=V:A=C + C:NEXT: 

RETURN 
1610GOSUB210:C = P 
1620C = C-INT((C/HF + C)-C)*HF:IFC<0 

ORC>=HFTHEN1620 
1650 FORA = C TOC + C:IFR(A)<>0 AND 

R(A)<>PTHENNEXT:V = 0:RETURN 
1660V=-S(A)*(R(A) = P):A=C + C:NEXT: 

RETURN 




ORC>==HFTHEN1620 
1650 FORA = CTOC + 4:!FR(A)<>0AND 

R(A)<>PTHENNEXT:V = 0: RETURN 
1660 V=~S(A)'(R(A) = P): RETURN 
2500DIM(1999), S(1999) 



1510GOSUB210:C = P 

1512 IF ABS(C/HF)>1E9 THEN 

C = C-((C/HF + C)-C)-HF: 

GOT01512 
1520C = C-INTt(C/HF + C)-C)'HF: 

IFC<0ORC>=HFTHEN1520 
1550 A = C:REPEAT:IF R(A}<>0 AND 

R(A)<>PTHENA = A + 1:UNTIL 

A = C + 4:RETURN:ELSE UNTIL TRUE 
1560R(A) = P:S(A)=V:RETURN 
1610GOSU6 210;C = P 
1612 IF ABS(C/HF)>1E9 THEN 

C = C-((C/HF + C)-C)*HF: 

GOT01612 
1620C = C-INT((C/HF + C)-C)*HF: 

IFC<0ORC> = HFTHEN1620 
1650 A = C:REPEAT;IFR(A(<>0 AND 

R{A)<>PTHENA = A + 1:UNTIL 

A = C + 4:V = 0:RETURN:ELSE UNTIL 

TRUE 
1660 V= -S(A)'(R(A) = P):RETURN 



1810SCREEN1,0:PUT(XX,YY)-(XX+19, 

YY + 19),Sa,N0T:F0RZ= 1TO100;NEXT 
1820PUT(XX,YY)-(XX+19,YY + 19),SQ, 

NOT 
1830 K$ = INKEY$:IF K$ = "T" AND YY>8 

AND XX>8 THEN YY = YY-20:XX = 

XX-20:GOTO1810 
1840 IF K$ = CHR$(10) AND YY<129 AND 

XX<129THENYY = YY + 20: 

XX=XX + 20:GOTO1810 
1850 IF K$ = CHR$(8) AND XX>28 THEN 

XX = XX-40:GOTO1810 
1860 IF K$ = CHR${9) AND XX<128 

THENXX = XX + 40:GOTO1810 
1870 IF K$ = CHR$(13) THEN RETURN 
1875 IF K$ = "a" THEN YY = 0:XX= -12: 

RETURN 
1880 GOTO 1810 

In the higher levels of play, you'll want to 
apply the alpha-beta algorithm— see page 
1098. In fact, you've already entered the 
algorithm as part of Fox's move and Geese 
move routines. Before the algorithm is ap- 
plied, they check if it is appropriate to use the 
algorithm — is the chosen level of play suffi- 
ciently high to warrant its use? 

The routine from Line 1 110 to Line 1 150 



looks after the fox, while the routine from 
Line 1310 to 1350 looks after the geese. 

The algorithm is applied in the last I F test 
at the end of Lines 1 1 50 and 1 350, after V ( M ) 
has been set to the appropriate level in Lines 
1110 and 1310. 

The alpha-beta algorithm is most efficient 
if the computer considers what are likely to be 
the best moves first — for the geese, the 
highest-numbered square in each row of four 
squares, and for the fox, the square open to it 
that is nearest the geese end. 

The alpha-beta algorithm is used in con- 
junction with a technique known as hash- 
coding to build up and use a table of the moves 
already considered. Hash-coding allows the 
computer to check quickly if the move has 
already been considered. The larger the hash- 
code table that can be built into the program, 
the faster-running that program should be. 

The table is initialized in Lines 2500, 2750 
and 2800. There are theoretical 'best values' 
for the dimensions of the arrays holding the 
tables — Line 2500. The arrays have been 
DIMensioned to as large as possible, given the 
available RAM in each of the machines. 

The table is zeroed in Lines 1110 and 
1310, the contents are checked in Lines 1122 
and 1322, and set in Lines 1172 and 1372. 
The checking subroutine starts at Line 1610, 
and the setting subroutine starts at Line 1510. 
BBC owners with disk filing systems should 
enter the following before RUNning. 




•TAPE 

FOR A% = 0TO&1600:?(&E00 + A%) = ? 

( PAG E-hA%): NEXT 
PAGE = 8>E00 - — 

OLD 
RUN 

The Dragon /Tandy game uses a flashing 
cursor to move the pieces. Move it to the 
square or piece you wish and press | RETURN | in 
response to the prompts to the right of the 
screen. 
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What are the chances of your 
selection scoring a big win on the 
football Pools this weekend? You 
might not improve your luck, but 
may understand why you've lost 



Instructing a novice at the controls of a 
modern jetliner or a fighter-bomber would be 
wastefully expensive, when factors such as 
fuel, landing fees and back-up facilities are 
taken into account. This is why military 
authorities find it cheaper to expend large 
sums for trainer aircraft and simulators — 
computer controlled mock-ups that never 
leave the ground, but give a trainee a realistic 
impression of flying. 

The same principle holds true in a large 
number of circumstances — including games 
programming, industrial development and 
marketing, scientific research and govern- 
mem. It is better to program a computer to 
predict the probable result of structural fai- 
lure, or of a particular economic policy, for 
example, than to do the actual experiment, 
which might last five years or even more in 
some circumstances. Not surprisingly, simul- 
ations are a useful and favoured facility. But 
their complexity means that they were only 
realty made possible by the advent of com- 
puters. Now, even the home micro can make 
light work of simulation. 

One of the chief tools of such computer 
modelling is the set of rules provided by the 
mathematical study of probability. In this 
context, you may find it helpful to look back 
to the article on pages 694 to 700, which 
explains some of the theory behind this. The 
rest of the model comes from an analysis of 
stafistical information, gathered from a sur- 
vey of the real situation. 

Given a few simple rules, the home micro 
user can conjure up alternative futures for a 
host of different events, but the reliability of 
the results depend on the accuracy of the data 
fed into the program or the precision of the 
rules by which the game is played. This fact 
can be demonstrated by a simulation of the 
outcome of football matches. 

Every Saturday afternoon during the soc- 
cer season, millions of pools punters eagerly 
await the football results and the chance of a 
bumper first dividend. Sadly, all but a few are 
disappointed, and must wait for another week 
and another chance. If you don't want to wait 
for a whole week, then key in the first 
program and try your luck as many times as 
you like; 



10 POKE 23658,0 

20DIMa(55):DIMr$(4,14) 

30 BORDER 0: PAPER 0: INK 7: CLS 

50 PRINT AT 0,7; INVERSE 1; 
"DDTREBLE CHANCED D" 

60 PRINT : PRINT 

80 PRINT "D DHOW MANY SELECTIONS 
FROM 55 D D D a D MATCHES DO YOU 
WISH TO MAKED D D D D D D D D 

nnnnn(8-i6)" 

90 INPUT n 

95IFn<1 OR n>16 THEN CLS: GOTO 80 

100 PRINT : PRINT "DWHAT ARE THE 

NUMBER OF MATCHESD DTHAT YOU 

WISH TO SELECT (1-55)" 
120FORk = 1 TOn 
130 INPUT a(k) 
U0NEXTk 
150 CLS 
160 PRINT FLASH 1; PAPER 2;AT 

10,6;" a MATCHES IN PROGRESSD" 
170 FOR v = 1 TO 2000: NEXT V 
180 CLS 
190 PRINT AT 0,10; INVERSE 1; 

"DDRESULTSan"" 
200LETr$(1) = "HOMEWIN":LET 

r$(2) = "AWAY WIN" 
210 LET r$(3} = "GOAL -LESS DRAW"; LET 

r${4) = "SCORE DRAW" 
220FORi = 1 TOn 
230LETy = RND'1 
240IFy<=.5THENLETz$ = r$(1) 
250IFy>.5ANDv<=.75THEN LET 

z$ = r$(2) 
260IFy>.75ANDy<=.9THEN LET 

z$ = r$(3) 
270IFy>.9THENLETZ$ = r$(4) 
280 PRINT "MATCH NUMBER";TAB 

14;a(i);TAB18;z$ 
290 NEXT i 
300 PRINT ; PRINT 
310 INPUT "DO YOU WANT ANOTHER GO 

?n";t$ 
320 IF t$ = "n" THEN GOTO 340 
330 GOTO 30 
340 STOP 



50 PRINT "□ -^ > UaTREBLE CHANCE" 
80 PRINT"ailUHOW MANY SELECTIONS 

FORM 55 DO YOU":PRINT"WISH TO 

MAKE" 
90!NPUT"(8-16)";N 
100 PRINT "HOWHAT ARE THE NUMBERS 

OF THE MATCHES" 
110 PRINT "THAT YOU WISH 

TO";PRlNT"SELECT(1-55)" 
120 FOR K = 1 TON 
130 INPUT A(K) 
140 NEXT K 
160 PRINT "QH > UaMATCHES IN 

PROGRESS" 
170FORV = 1 TO2000;NEXTV 
190 PRINT "QM > UaRESULTS" 
200 R$(1) = "HOME WIN": 

R$(2) = "AWAY WIN" 
210 R$(3) = "GOAL -LESS DRAW"; 

R$(4) = "SCORE DRAW" 
220 PRINT "aMATCH":FOR 1 = 1 TON 
230Y = RND(1} 

240IFY<=0.5THENZ$ = R$(1) 
250 IF Y>0.5 AND Y< =0.75 THEN 

Z$ = R$(2) 
260 IF Y>0.75 AND Y< =0.9 THEN 

Z$ = RS(3) 
270IFY>0.9THENZ$ = RS(4) 
280 PRINT A(I)TAB(6)Z$ 
290 NEXT I 
310 PRINT'HDO YOU WANT ANOTHER GO 

(Y/N)?"; 
320 GET T$;IFT$ = "N" THEN 

PRINT"P":END 
330IFT$ = "Y"THENRUN 
340 GOTO 320 
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20 DIM A(55),R$(4) 



20 DIM A(55),R$(4) 
50MOD£1:PRINTTAB(14,3) 

"TREBLE CHANCE" 
80 PRINT""HOW MANY SELECTIONS FROM 

55 MATCHES DOD DYOU WISH TO 

MAKE (8-16)?" 
90 INPUT N 
100 PRINT'WHAT ARE THE NUMBERS OF 

THE MATCH ES"'"THAT YOU WISH TO 

SELECT (1-55)?" 
120 F0RK = 1 TON 
1301NPUTA(K) 
140 NEXT 
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RULES OF THE GAME 

SCORING 



DECIDING RESULTS 



SELECTING NUMBERS FROM 



A HAT OR BOX 



GENERATING RANDOM NUMBERS 
TYPES OF RANDOM NUMBER 

SAMPLES AND SURVEYS 

SAMPLING 

SINGLE-PASS SEARCH 



160PRINTTAB(11)"MATCHES 

IN PROGRESS" 
170D = INKEY(500) 



190CLS:PRINTTAB{17,3) 

"RESULTS" 
200 R$(1) = "HOME WIN 




R$(2} = "AWAY WIN" 
210 R$(3) = "GOAL -LESS DRAW": 

R${4)= "SCORE DRAW" 
220 FOR 1 = 1 TON 
230Y=RND(1) 
240 IF Y<=.5THEN 

Z$=R$(1) 
250IFY>.5ANDY<=.75THEN 

Z$=R$(2} 
260IFY>.75ANDY<=.9THEN 

Z$ = R$(3} 
270 IF Y>. 9 THEN 

Z$ = RS(4) 
280 PfilNT"MATCH NUMBERD"; 

A(I)TAB(20)Z$ 
290 NEXT 
310 INPUT""DO YOU WANT ANOTHER 

GO",G$ 
320IFG$ = "N"THENEND 
330 GOTO 50 
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20 DIM A{55) 
30 CIS 

50 PRINT@9,"treble chance" 

60 PRINT:PRINT 

80 INPUr'HOW MANY SELECTIONS FROM 

55a D D D D MATCHES DO YOU WISH 

TOMAKEnnnnn(8-13)";N 
90IFN<8ORN>13THEN80 
100 PRINF'WHAT ARE THE NUMBERS OF 

THED D D D U MATCHES THAT YOU 

WISH TO SELECT (1-55)0" 
110T = 

120FORK = 1 TO N 
130 INPUT A{K} 
140 NEXT K 
150 CLS 

160 PR1NT@262,"matches in progress" 
170FORV = 1 TO2000:NEXTV 
180 CLS 

190PRlNT@12,"results" 
220 FOR 1 = 1 TON 
230Y = RND(0} 

240 IF Y< =.5THENZ$ = "H0ME WIN" 
250 IF>.5 AND Y< =.75 THEN Z$ = "AWAY 

WIN" 
260IFY>.75ANDY<=.9THEN 

Z$ = "GOAL -LESS DRAW" 



270IFY>.9THENZ$ = 

"SCORE DRAW" 
280 PR[NT"MATCH NUMBER "; 

A(I);TAB{17);Z$ 
290 NEXT I 
300 PRINT:PRINT 
310 INPUr'DO YOU WANT ANOTHER GO 

(Y/N)n";T$ 
320IFT$ = "N"THEN END 
330 GOTO 30 

There are no first dividends in this football 
simulation, but it may sharpen your feel for 
the real thing. In any event, it will 
demonstrate just how small is the chance of 
getting 24 points. 

RUN the program, and choose a number of 
matches between 8 and 16 in the range 1 to 55. 
This is equivalent to placing an X against the 
games chosen as likely draws. The results for 
the games you selected are then displayed on 
the screen. Scoring three points for a score 
draw, two for a no-score draw, one-and-a-half 
for an away win and one for a home win, the 
best eight matches in a typical selection would 
yield a total of only about 15 points — not a 
good start. 

In January and February, bad weather 
sometimes forces matches to be cancelled. 
When this happens, a panel of football experts 
decides how the results would have turned 
out if the games had actually taken place. In 
fact, both the program and the panel are 
simulators — they provide a symbolic repre- 
sentation of a real process. 

The program is not particularly difficult. 
After matches have been selected (Lines 120 
to 140) the main part of the simulation (Lines 
220 to 290) decides the outcome of each 
match, and prints the results. 



DECIDING RESULTS 



The basis on which the computer decides to 
print 'score draw', 'no-score draw', or another 
result, is the old pools punter's rule — that a 
half of the matches played turn out to be home 
wins, a quarter away wins, and the remaining 
quarter result in draws. It has been assumed 
that the number of ties is divided between 
score draws and no-score draws in the ratio 
two to three. This ratio gives factors off and |. 
When multiplied by ^, the values are 0.1 and 
0.15, so that the probability (see pages 694 to 
700) of a score draw is 0.1. 

It is worth noting that previously, each 
match had only three possible results (home 
win, away win and draw). Then, the total 
number of different possible outcomes of 
eight matches were three to the power eight, 
or 6561. The introduction of a score draw 
category increased this dramatically to (4t8) 



or 65,536. If the chance of choosing a score 
draw is 1 in 10 (0.1), then the odds against 
picking eight score draws in eight matches is 1 
to 100 million, which is most discouraging. 

Choosing numbers in the treble chance is 
similar to deciding who wins a raffle. Usually, 
the tickets are placed in a large box or a hat, 
and someone, without looking, picks out the 
lucky number. The allocation of horses in 
the office Derby sweepstake can be organ 
ized in a similar fashion, and the method 
is termed top hat simulation. 

Suppose a piece of paper is cut into 
four quarters. On the first quarter, the 
words 'away win' are written. 'Draw' 
is written on the second quarter and 
the other two pieces of paper bear 
the message 'home win'. Now, if the 
four pieces of paper are folded and 
placed in a top hat, picking a piece of 
paper at random is equivalent to decid- 
ing the outcome of a football match. 
The process would be just as effective 
if one each of the numbers 1, 2, 3 and 
4 had been written on the four pieces of 
paper. The outcome could then have been 
decided by referring to a table; 

Number drawn Result 

1, 2 home win 

3 away win 

4 draw 

Similarly, when score draws are taken into 
account, if 40 pieces of paper bearing one each 
of the numbers 1, 2, ... 40 are placed in the 
top hat, the result of picking out a particular 
piece of paper can be interepted according to 
the following table: 

Number drawn Result 

1 to 20 home win 

21 to 30 away win 

31 to 36 no-score draw 

37 to 40 score draw 

The BASIC function RND, which generates 
random numbers, gives a computation 
equivalent to picking numbers out of a hat. 
You can specify that RND generates a number 
which is equally likely to take any value 
between and 1 . It only remains to rewrite 
the table in decimal format: 




Value of RND 

from to 0.5 

greater than 0.5 to 0.75 

greater than 0.75 to 0.90 

greater than 0.90 to 1.00 



Result 

home win 
away win 
nO'Score 
draw 
score draw 



These are the actual values that are coded at 
Lines 230 to 270 in the program above. 



The treble chance simulation is only as 
good as the probability estimate used in the 
program. You could collect your own data 
from the Sunday papers, for example, and 
decide whether a greater proportion of score 
draws, say, is more usual. 



GENERATING RANDOM NUMBERS 



Many years ago, manual or mechanical 
methods, such as dice throwing, card- 
shuffling or the spinning of a roulette wheel, 
were used to generate random numbers. 
These methods were slow and tedious, so the 
famous American mathematician, John Von 
Neuman, proposed a mid-square technique. 
Starting with a four-digit number (the seed), 
the next 'random number' is obtained by 
multiplying the seed by itself, and then taking 
the middle four digits. For example, suppose 
the seed is 5272. Then the second number can 
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be generated by taking the middle four digits 
of (527212) or 27,793,984. The answer (7939) 
is, practically, random. A second number can 
be obtained by squaring 7939, and so the 
process continues. 

How, you may ask, can any mathematical 
process — which must be repcatable — produce 
true random numbers? The answer is that it 
can't. The numbers so obtained, however, 
behave as though they are random, and are 
usually referred to as pseudo-random or 
quasi-random. Numbers generated by using 
RND are, in fact, pseudo-random. Unfortu- 
nately, the mid-square technique is not very 
useful for generating random numbers by 
computer. 

Besides being slow, the sequence quickly 
repeats, and once a zero is obtained, the whole 
process ends. Most home micros use a con- 
gruence method which uses remainders to 



generate pseudo-random sequences. The next 
program uses a simple formula and the INT 
(integer) function to provide an example of 
this: 



20 BORDER 0: INK 7: PAPER 0: CLS 
30 PRINT AT 0,4; INVERSE 1; 

"DPSEUDO-RANDOM NUMBERSD"" 
40 INPUT "DHOW MANY NUMBERS 
?n";n: LETs = 
50 LET x = .677829*PEEK 23673/50 
60 LET x = x'1 842.95 
70LETx = x-INT(x} 
80 LET p= INT (x*1 000): PRINT 

"nnann";.00rp, 

90LETs = s-H 

110 IF s<=n THEN GOTO 60 

120 STOP 



SSSE 



30PRINT"aH>liaPSEUDO 

-RNDNUMBERSH" 
40 PRINT"HOW MANY NUMBERS": 

INPUT N 
50X=.677829*TI/60 
60X = X*1842.95 
70X = X-INT(X) 
80P = INT(X*1000):PRINT.00rP, 
90 S = S -I- 1 
110IFS<=NTHEN60 



30MODE1:PRINnAB(8,3) 

"PSEUDO-RANDOM NUMBERS" 
40 INPUT'HOW MANY NUMBERS",N: 

S = 
50X = .677829*(TIME/100-INT 

(TIME/100)) 
60 X = X*1 842.95 
70X = X-INT(X) 
80 P = INT(X*1000):PRINT.00rP; 
90S = S-M 
110IFS<=NTHEN60 



20 CLS 

30 PRINT@3,"pseudo-random numbers" 
40 INPUT'HOW MANY NUMBERSD"; 

N:S = 
50X = .677829*TIMER/50 
60 X=X'1 842.95 
70X=X-INT(X) 
80P = INT(X*1000):PRINTLEFT$ 

(STRS(p/i000)-F"nnnn 
nnn",8}; 

90S = S + 1 

110|FS< = NTHEN60 
120 END 

Line 50 uses the computer time function to 



set a different seed value for each run. The 
number .677829 is a fairly arbitrary constant. 
After the start value has been multiplied by 
another constant (Line 60), the remainder or 
decimal part is obtained. Change the value of 
the constants at Lines 50 and 60, and RUN the 
program again to see what sort of results you 
obtain. 

For most purposes, it is wise — and far 
simpler — to use the RND function provided 
by your own computer. Varying the value of x 
in the expression RND(x) will usually enable 
you to select a repeatable sequence which is 
good for testing or to re-seed each time. 

Perhaps the most important point to re- 
member when writing programs is that the 
function RND provides a random variable and 
not an algebraic variable. RND(1 )— or RND(0) 
on the Dragon and Tandy — listed at one line 
of a program will not take the same value as 
RND(1) listed elsewhere. 



SAMPLES AWD SURVEYS 



Political opinion polls, consumer research 
organizations and governments use com- 
puters to generate random samples. It is 
important, for example, that a market re- 
search company interviewing 1000 people 
gets a typically varied sample, representative 
of a much larger group of the population. It 
would not do, for example, to choose people 
who were all members of a vintage car club, if 
the survey was supposed to check the national 
pattern of car ownership. 

The best way to determine that a sample is 
representative is to pick them randomly — this 
excludes any particular bias. 

This still holds true, even when you are 
working with a smaller sample who do have a 
particular common interest, like the members 
of a vintage car club, or the readers of 
INPUT. Selecting randomly is still import- 
ant here, if, say, you wanted to determine the 
spread of computer ownership of particular 
computers amongst INPUT readers. 

You may even wish to pick a sample from 
your own computerized club membership 
list. Basically, the sampling process is similar 
to a top-hat simulation in which several pieces 
of paper are picked from the hat. When 
simulating, however, each piece of paper is 
returned to the hat before the next is chosen. 
In sampling, once a piece of paper has been 
selected from the top hat, it is placed to one 
side before the next is chosen. Enter the next 
program to see how RND can be used to 
generate a random sample: 



10DfMb$(10,16) 
20DIMa$(10,16) 



30 BORDER 0: PAPER 0: INK 7: CLS 
50 PRINT AT 0,7; INVERSE 1; 

"DRANDOMSAMPLINGn" 
90 PAUSE 100: CLS 

100 FOR 1 = 1 TO 10: READ a$(i): NEXT i 
110 INPUT "DSAMPLE SIZE ?n";n 
1 20 FOR V = 1 TO 1 0: LET b$(v) = a$(v): 

NEXTv 
130FORj = 1TOn 
140LETr = 1+INT(RND'10) 

150 IF b$(r) = "nnnnnnnn 

D D n D D D D D" THEN GOTO 140 
160 PRINT b${r) 
170LETb$(r) = "" 
180 NEXT j 
190 INPUT "DANOTHER SAMPLE (y/n) 

?n";g$ 
200 IF g$ = "y" THEN CLS : GOTO 110 
210 STOP 
220 DATA"BONN'V'COPENHAGEN'^ 

"LONDON" 
230 DATA "MADRID","MOSC0W","NEW 

YORK" 
240 DATA "PARIS","ROME","STOCKHOLM", 

"VIENNA" 

20 DIM A$(10) 
50PRINT"nH|>ljaRANDOM 

SAMPLINGHM" 
100 FOR 1 = 1 TO10:READA$(I): 

NEXT I 
110 INPUT "SAMPLE SIZE";N:PRINT 
120FORV = 1 TO10:B$(V) = A$(V): 
NEXTV 

130FORJ = 1 TON 
140R = 1 + INT(RND(1)'10) 
150IFB$(R) = ""THEN140 
160 PRINT B$(R) 
170B$(R) = "" 
180 NEXT J 
190 PRINT "HHANOTHER SAMPLE 

(Y/N)?" 
200 GET G$:IFG$ = "Y" THEN RUN 
210IFG$<>"N"THEN200 
215PRINT"Q" 

220 DATA BONN,COPENHAGEN,LOND0N 
230 DATA MAORI D.MOSCOW, NEW YORK 
240 DATA PARIS,ROME,STGCKHOLM, 

VIENNA 



20DIMA$(10),B$(10) 

50 MODE1:PR!NnAB(13,3)"RANDOM 

SAMPLING" 
90D = INKEY(300) 
100 FOR 1 = 1 TO10:READA$(I): 

NEXT 
110 INPUT""SAMPLE SIZE 1-10",N 
120FORV = 1 TO10:B$(V)=A$(V): 

NEXT 



130FOR J = 1 TON 

140R = RND(10} 

150IFB$(R) = ""THEN140 

160PRINTB$(R) 

170B$(R) = "" 

180 NEXT 

190 INPUT""ANOTHER SAMPLE (Y/N)",G$ 

200IFG$ = "Y"THEN110 

210 END 

220 DATA BONN,COPENHAGEN,LOND0N 

230 DATA MADRID,MOSCOW, 

NEW YORK 
240 DATA PARIS,ROME,STOCKHOLM, 

VIENNA 



40 CLS 

50 PRINT@8,"random sampling": 

PRINT:PR1NT 
100RESTORE:FOR1 = 1 TO 10: 

READ AS(I):NEXT I 
110INPUr'SAMPLESIZED";N: 

PRINT 
115IFN>10THEN40 
120FORV=1 TO10:B$(V)=A$(V): 

NEXTV 
130FORJ = 1 TON 




MAKING PREDICTIONS 

The simulation techniques described in 
this article have many of the elements you 
would need to devise a method of predict- 
ing results of a game or to carry out a 
survey. So it should be easy for you to 
modify the programs, or use certain sec- 
tions of them, in your own code. You 
could, for example, write a program to 
decide which matches will result in a score 
draw, then select eight of these matches at 
random and compare your predictions 
with actual results. This would require 
sections of the 'treble chance' and the 
'random sampling' programs, together 
with a few lines to link them and keep track 
of your selections. One use for such a 
program would be to remove the tendency 
for a person to choose matches on the 
coupon according to the separation of the 
numbers — they spread their choice at 
almost regular intervals on the coupon. In 
fact it could be interesting to compare both 
methods of choosing which of the games 
will produce the appropriate results. 



140R = 1+INT(RND{0)*10) 

150IFB$(R) = "" THEN 140 

160PRINTB$(R) 

170B$(R)="" 

180 NEXT J 

190 PRINT:INPUT"ANOTHER SAMPLE 

{Y/N)a";G$:PRINT:PRINT 
200IFG$ = "Y"THEN110 
210 END 
220 DATA BONN,COP£NHAGEN, 

LONDON 
230 DATA MADRID,MOSCOW, 

NEW YORK 
240 DATA PARIS,ROME,STOCKHOLM, 

VIENNA 

After the data have been read in (Line 
100), a random integer R between 1 and 10 is 
generated (Line 140). Your computer will 
then print the Rth item (Line 160) on the list, 
Once an item has been selected, it must be 
removed from the data bank so that it is not 
selected a second time. Line 170 looks after 
that job. Notice that you could use RND(1 0) to 
generate a random variable in the range 1 to 
103 but the method shown at Line 140 follows 
on from the use of decimal fractions to test the 
range of probabilities. 

Usually, the data population from which 
the sample is drawn is far more extensive than 
the ten items in this example. For sampling 
such masses of data, the program above would 
be slow and inefficient. Suppose, for instance, 
a pollster wishes to pick 200 names from an 
electoral roll of 60,000 voters in a particular 
constituency, a program such as the one above 
would need to search the entire fist of electors 
200 times. To avoid the long wait that this 
would entail, it would be better to use a 
single-pass method. 



THE SINGLE-PASS SEARCH 



The single-pass method would read through 
the electoral roll once from top to bottom. As 
each name is considered, a decision is made 
whether to include that person in the sample. 
This method can be programmed easily — 
make the following changes to the last 
program and reRUN it: 



50 PRINT AT 0,1; INVERSE 1; 

"DSINGLE- PASS RANDOM 

SAMPLINGD" 
120LETa = n: LETc = 10 
130FORj = 1 TO 10 
140IFa = 0THENGOTO190 
150 IF RND-1 < =a/c THEN PRINT 3$(i): 

GOTO 170 
160 LETc = c-1: GOTO 180 
170LETa = a-1:LETc = c-1 




sa[^ 



50 PRINT "□H>Ua SINGLE - 

PASS " 
60 PRINT "UU^RANDOM 

SAMPLINGSSM" 
120A=N:C = 10 
130 FOR J = 1 TO 10 
140 IF A = THEN 190 
150IFRND(1)<=A/CTHEN PRINT 

A$(J):G0TO 170 
160 C = C-1: GOTO 180 
170A = A-1:C = C-1 



50 MODE1:PRINnAB(5,3)"SINGLE PASS 

RANDOM SAMPLING" 
120 A=N:C = 10 
130 FOR J = 1 TO 10 
140IFA = 0THEN190 



150IFRND(1)<=A/CTHEN 

PRINTA$(J):A = A-1 
160C = C-1 

Also delete Line 170 



50 PRINT@2,"single-pass random 

sampling":PRINT:PRINT 
120A=N:C = 10 
130FOR J = l TO 10 
140 IF A = THEN 190 
150IFRND(0)<=A/CTHEN 

PRINTA$(J):GOTO170 
160C = C-1:GOTO180 
170A = A-1:C = C-1 

If now you enter 3, to select three items from 
the list, the first item (Bonn) is considered 
first. Should the function RND (Line 150) be 



less than 3/10, Bonn is selected. Copenhagen 
is considered next. If Bonn is already in the 
selection, Copenhagen will have a chance of 
being selected only if the function RND 
generates a value of less than 2/9. On the other 
hand, if Bonn is not already selected, 
Copenhagen's chance will go up to 3/9. Lines 
160 and 170 update the probabilities. When 
you compare the results of selections from 
this program with those from the previous 
one, you should notice that the single-pass 
method gives samples in alphabetical order. 
At first sight, it might appear that with a 
list of only ten cities, the number of possible 
samples is small. This is not so. In fact, there 
are 120 possible different samples of size 
three, and 252 samples of si^e five. In a future 
article, you can see how thes'e ideas can be 
developed and used in a type of simulation 
referred to as modelling. 
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PATTERNS 
FIROM NATUIRI 



A surprising variety of patterns can 
be produced using very simple 
graphics routines tliat superimpose 
curves or build up patterns of dots. 
Here are a few ideas to try 



The way in which computers can be used to 
plot the orbit or trajectory of an object falling 
under gravity was described in the articles on 
pages 740 to 747 and 797 to 803. Such 
programs illustrate the simplest aspects of the 
old science of dynamics. Orbits can, however, 
generate patterns much richer and more 
interesting than the parabolas, circles and 
ellipses in which projectiles and planets move. 
This article will explain how some of these 
patterns can be produced by very elementary 
programming and graphics routines. 

Nowadays dynamics is once again a 
rapidly developing field of research. One 
reason for this is the realization that there are 
mathematical ideas underlying dynamics that 
can be applied much more widely than simply 
to the motion of bodies acted on by forces. 
Optical scientists interested in the deviation 
of starlight by refraction in the atmosphere, 
industrial chemists studying the progress of a 
reaction, and biologists concerned with the 
growth of populations of competing species, 
all find themselves using the mathematics of 
dynamics. Another reason is that 
computers — by enabling simple operations to 
be repeated many times — have led to the 
discovery of structural complexity often un- 
suspected on the basis of the restricted calcul- 
ations previously possible. A pattern or curve 
may need to be drawn many, many times 
before any structure begins to appear. The 
programs below show how this can be done. 

All the programs for the Commodore need 
a Simons' Basic cartridge or INPUT$ hi-res 
utility. The programs for the Vic need a 
Super Expander cartridge. 



FAMILIES OF ORBITS 



When assembled into a collection or family, 
orbits that are individually simple can display 
striking patterns. To see this for parabolas, 
enter and RUN the first program. 



5LETA$ = "":FORN = 1T0 64:LET 

A$ = A$-|-"n": NEXTN 
10 BRIGHT 1 : BORDER 0: INK 5: PAPER 0: 

CLS 
20 LET N MAX = 81 
30LETDELT = .05 




USING PATTERNS IN SCIENCE 



FAMILIES OF ORBITS 



ORBITS AND ENVELOPES 



FOCUSING LINES AT CUSPS 



CATASTROPHE THEORY 



PATTERNS OF DOTS 



DOT CURTAINS AND THE RINGS 



OF SATURN 



COMPLETE CHAOS 



FISH POPULATIONS 




40 LET SX = 1 70/SOR 3: LET SY = 1 75 

50FORN = 1 TONMAX 

60LETA = Pr(-1+2*N/NMAX) 

70 PLOT 128,80 

80FORT = 0TO3STEPDELT 

90 LET X = rCOS A: LET Y = T'(SIN A-T/2) 

100 IF Y< = -.4 THEN GOTO 120 

110LETDX = SX*X + 128:LET 

DY = SY*Y + 80 
111 IF DX<0 OR DX>255 OR DY<0 OR 

DY>175 THEN GOTO 120 
1 1 5 DRAW DX - PEEK 23677,DY - PEEK 23678 
117 PRINT AT 19,0;A$ 
120 NEXT T 
130 NEXT N 



a 



10 HIRES 6,3;COLOUR 6,3 

15 BLOCK 0,160,319,199,1 

20NM = 81 

30DE = .05 

40SX=160/SQR(3):SY = 200 

50FORN = 1 TO MM STEP 2 

60A = 7r'(-1+2'N/NM) 

70XX = 160:YY=100 

80FORT=0TO3STEPDE 

90X = rCOS(A):Y = r(SIN(A)-T/2) 

100 IFY> -^.4THENLINE XX,YY,SX"X + 160, 

100-SY-Y,1:XX = SX*X + 160:YY = 

100-SY'Y:GOTO110 
105 T = 3 
110 NEXT T,N 
130 GOTO 130 



10 GRAPHIC 2:C0L0UR 6,1,1,1 
15 DRAW 1,0,000 TO 1023,800: 

PAINT 1,0,808 
20NM = 81 
30DE = .05 

40SX = 512/SaR{3):SY = 1000 
50FORN = 1 TO NM STEP 2 
60A = 7i*(~1+2"N/NM) 
70 POINT 0,512,512 
80FORT=0TO3STEPDE 
90X = rCOS(A}:Y = r(SIN(A)-T/2) 
100 IFY> -.4THEN:0RAW 1 TO SX'X+512, 

512-SY'Y:GOTO110 
105 T=3 
110 NEXT T,N 
130 GOTO 130 



10MODE0 

20 N MAX = 81 

30DELT = .05 

40SX = 800/SQR(3):SY = 1300 

50 FOR N = 1 TONMAX 

60A = Pr(-1+2*N/NMAX) 

70 MOVE 640,341 

80T = 0:REPEAT 

90X = rCOS(A}:Y = r(SlN(A)-T/2) 

100 IF Y> -0.4 THEN DRAW SX*X + 640, 

SY"Y + 341 
110T=T + DELT:UNTILY< = -.40RT>3 
120 NEXT 



iso 



10PMODE4,1:PCLS1:SCREEN1,0 

20NM = 81:PI = 4-ATN(1) 

30DE = .05 

40SX = 160/SQR(3):SY = 230 

50FORN = 1 TONM 

60A = Pr(-1+2"N/NM) 

70DRAW"BM127,118" 

80FORT = 0TO3STEPDE 

90X = rCOS(A):Y = r(SIN(A)-T/2) 

100IFY>-.4THENUNE-(SX'X + 127, 

118 -SY-Y),PRESET ELSE T = 3 
110 NEXT T 
120 NEXT N 
130 GOTO 130 

This program simulates the paths of falHng 
drops of water sprayed from the head of a 
garden sprinkler, or, in a more modern 
application, neutrons squirted from a thin 
pipe connected to a reactor. In this case the 
family of orbits consists of all the parabolic 
paths that emerge from a particular point in 
different directions but with the same speed. 
The pattern formed by this family is the outer 
curve which each orbit touches. This curve, 
called the envelope of the family, happens, 
itself, to be a parabola in this case (in gunnery 
it is called the 'bounding parabola' because it 
is the boundary of the region that can be 
reached by projectiles of a fixed initial speed). 
It is important to realize that the envelope is a 
property of the whole family of parabolic 
orbits and has no meaning for any single one 
of them. Thus envelopes are perfect ill- 
ustrations of the fact that the whole can be 
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greater than the sum of its parts. 

In the program, the equation for the orbits 
appears on Line 90. X is horizontal distance, Y 
is vertical distance, T is time (starting from 
zero at the instant of emission), and each orbit 
in the family is labelled by A, which is an angle 
giving the direction in which it starts out. 
There are NMAX or NM such directions; try 
changing the value of N MAX or NM in Line 20. 



FOCUSING 



Even straight lines can form families with 
interesting envelopes, as the second program 
shows. 



10 BORDER 0: INK 7: PAPER 0:CLS: 

LETN = 2 
30LETY0 = 80/N/N 
40PLOT0,-6-Y0"2 
50 FOR X = TO 255 STEP 2 
60LETY = 169-Y0-Y0-COS(N'2'PrX/255) 



70 DRAW X- PEEK 23677,175-Y- PEEK 

23678 
80 LETXT = X + 2'Y0'N-prY/255-SIN (N*2- 

prx/255) 

85 LETY1=0: IFXT<0THEN LETXT = 0: 
LET Y1 =Y + 255*X/(2'N-PI*Y0-SIN (N* 
2*PrX/255)) 

86 IF XT> 255 THEN LETXT=255: LET 
Y1 =Y- (255-X)'255/(2'N-pl"Y0'SIN 
(N*2*PrX/255)) 

90 DRAW XT-PEEK 23677,175- Y1 -PEEK 

23678 
100PLOTX,175-Y 
110 NEXT X 
120 GOTO 120 



60 Y = 1 60 - Y0 - Y0-COS(N*2-;r*X/31 9) 
70LINEXX,YY,X,Y,1:XX = X:YY = Y 
80 XT = X + 2*Y0-N"7r-Y/31 9*SIN(N-2*rt* 
X/319) 

85 Y1 =0:IF XT<0 THEN XT = 0:Y1 =Y + 
199'X/(2*N-n-Y0-SIN(N*2-7r-X/199)) 

86 IF XT>319 THEN XT = 319:Y1 =:Y- 
(199-X)-199/{2*N-7r"Y0-SIN(N-2-7t- 
X/199)) 

90LINEXX,YY,XT,Y1,1 
110 NEXT X 
120 GOTO 120 



BE 

10 HIRES 6,3:COLOUR 6,3 
20N = 2 
30Y0 = 80/N/N 

40XX-0:YY = INT(160-Y0"2) 
50 FOR X = TO 319 STEP 2 



10 GRAPHIC 2:C0L0R 6,1,1,1 

20N = 2 

30Y0 = 200/N/N 

40XX = 0:YY = INT(512-Y0*2) 

50 FOR X = TO 1023 STEP 20 

60 Y = 51 2 - Y0 - Y0'COS(N7*7r*X/1023) 

70 DRAW 1,XX,YYT0 X,Y:XX-X:YY = Y 

90XT = X + 2"Y0"N*7r*Y/1023*SIN(N*2"7r" 




X/1023) 

85 Y1 =0:IF XT<0 THEN XT = 0:Y1 =Y + 
1023'X/(2'N-7r*Y0*SIN(N*2'jt-X/1023)) 

86 IF XT>1023 THEN XT = 1023:Y1 =Y- 
(1023-X}-1023/(2'N-;r*Y0*SIN(N*2*;r- 
X/1023)) 

90DRAW1,XX,YYTOXT,Y1 
110 NEXT X 
120 GOTO 120 



10MODE0 

20 N = 2 

30Y0 = 400/N/N 

40MOVE0,Y0*2 + 30 

50 FOR X = TO 1283 STEP 9 

60Y = Y0 + 30 + Y0"COS(N*2-prX/1279) 

70 DRAW X,Y 

80 XTOP = X + 2'Y0'N* Pl*(1 023 - Y)/1 279" 

SIN(N*2"PI*X/t279) 
90DRAWXTOP,1023 
100MOVEX,Y 
110 NEXT 



lau 



10PMODE4,1:PCLS1:SCREEN1,0 
20N = 2:PI=4-ATN(1) 
30Y0 = 80/N/N 

40DRAW"BM0," + STR$(INT(186-Y0-2)) 
50 FOR X = TO 255 STEP 2 
60 Y = 1 86 - Y0 - Y0*COS(N'2*PrX/255) 
70LINE-(X,Y),PSET 

80XT = X + 2*Y0'N"PI*Y/255-SIN(N'2'PrX/ 
255) 

85 Y1 =0:IF XT<0 THEN XT = 0:YZ = Y + 
255-X/(2-N'PrY0'SIN(N'2'PI'X/255)) 

86 IF XT>255 THEN XT = 255:Y1 =Y- 
(255-X)-255/(2*N'PrY0*SIN(N-2'PrX/ 
255)) 

90 LINE -(XT,Y1), PRESET 

1 00 DRAW'BM" + STR$(X) + "," + STR$ 

(INT(Y)) 
110 NEXT 
120GOTO120 

This program simulates light rays bent by 
refraction through a wavy, curved surface, for 
example sunlight refracted by ripples on 
water in a swimming pool. The family of 
orbits consists of all the straight lines at right 
angles to a wavy curve of sine form. For light 
rays the envelope is the curve corresponding 
to focming. Focusing is particularly intense 
near the troughs (minima) of the sine wave, 
where the envelope has sharp points called 
cusps. These cusps are the bright points of 
light you see amongst the ripples. The 
existence of cusps is predicted by the 
recently developed mathematics of envel- 
opes, called catastrophe theory (whose drama- 
tic name originated in applications of the 



same mathematics to the collapse of bridges 
and the capsizing of ships). 

In the program, the wavy initial curve is 
specified in Line 60 and the rays that start out 
from it are defined in Line 80. The number of 
troughs of the wavy curve is N; try changing 
the value of N in Line 20 (N = I is especially 
recommended). 

Trajectories that are themselves wavy 
sine curves are assembled into a family in 
the third program. 



10 BORDER 0: PAPER 0: INK 7: CLS 

20 LETQM^SQR (2'LN (3)) 

30 FOR Q= -QM TO QM'1.001 STEP QM/30 

40 PLOT 0,75 + Q*75/QM 

50FORT = 0TO3'PISTEP.2 

60LETX = a"COS (EXP (-Q'Q/2)*T) 

70 DRAW (r240/3/PI) - PEEK 

23677,75 + (X*75/QM) - PEEK 23678 
80 NEXT T 
90 NEXT 



»u 



10 HIRES 0,1:COLOUR 1,6:MULTI 4,3,7 

20OM = SQR(2*LOG(3)) 

30 FOR Q= -QM TO QM"1.001 STEP 

QM/30 
40 XX = 0:YY = INT(1 00 - a*90/QM) 
50FORT = 0TO3"7iSTEP.2 
60X = Q"COS(EXP(-Q"Q/2)'T) 
70 LINE XX,YY,ri7/3';r,100-X*90/QM,RND 

(1)*3 + 1 
75 XX = T*1 7/3*7r:YY = 1 00 - X*90/QM 
80NEXTT,Q 
90 GOTO 90 



10 GRAPHIC LCOLOR 6,1,3,7 

20QM = SQR(2"LOG(3)) 

30 FOR 0= -QM TO QM"1.001 STEP 

QM/30 
40 POINT0,0,INT(512-Q'500/QM) 
50FORT = 0TO3"7tSTEP.6 
60X = Q'COS(EXP(-Q-Q/2)-T) 
70DRAWRNO(1)*3-|-1 TO ri16/3*7r, 

512- X'500/QM 
80 NEXT T,Q 
90 GOTO 90 



10MODE0 

20QM = SQR(2'LN(3)) 

30 FOR Q= -QM TO QM*1.001 STEP QM/30 

40 MOVE0,Q'450/QM-l-500 

50FORT = 0TO3"PISTEP.2 

60X = Q'COS(EXP(-Q'Q/2)"T) 

70 DRAW T*1200/3/PI,X'450/QM-h500 

80 NEXT 

90 NEXT 



10PMODE4,1:PCLS1:SCREEN1,0 

20 QM = SQR(2*LOG(3)):PI = 4'ATN(1) 

30 FOR 0= -QM TO QM"1.001 STEP 

QM/30 
40 DRAW"BM0," + STR${INT(1 00 - 0*90/ 

QM)) 
50FORT = 0TO3*PISTEP.2 
60X = Q*COS{EXP(-Q*Q/2)'T) 
70 LINE-(r240/3/PI,100-X-90/QM), 

PRESET 
80 NEXT T 
90 NEXT Q 
100 GOTO 100 

This program simulates light rays passing 
along a thin glass optical fibre whose refrac- 
tive index varies across its width, or (on a 
much smaller scale) electrons winding be- 
tween planes of atoms in a crystal placed in 
the beam of an electron microscope. The 
family consists of orbits starting out parallel 
to each other at the left-hand edge of the 
screen; each orbit undulates about the central 
line at a rate that depends on its starting point. 
Although this family is very different from 
the last program, the envelope curves also 
display intense focusing at cusp catastrophe 
points. 

In the program, orbits are specified in Line 
60 by giving their distance X from the centre 
line at time T. Different orbits in the family 
are labelled by 0. There are 30 orbits in the 
program as written; to get more or fewer, 
change the number at the end of Line 30. 



DOT PATTERNS 



Assembling orbits into families is not the only 
method of obtaining interesting patterns. 
Another way is to follow the orbits for very 
long times, with the result that considerable 
complexity can develop even when the math- 
ematics of the orbit is relatively simple. In 
displaying these orbits it is not usually advis- 
able to plot the continuous curve giving the 
position at every instant, because over long 
times this would just fill the screen with a 
mess like tangled wool. Instead the orbit is 
plotted at regular intervals (once every sec- 
ond, for example), as though the trajectory 
were viewed in the flashing light of a strobos- 
cope. Examples of the resulting dot patterns 
are given in the next three programs. The 
position of dots on the screen does not always 
correspond to the real, spatial position of 
physical objects whose motion the programs 
simulate; sometimes it is an abstract repres- 
entation, in which horizontal screen position 
corresponds to position and vertical screen 
position to speed. 
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The fourth program will take several 
minutes to RUN. 



10 BORDER 0: PAPER 0: INK 7: CLS 

30 LET A = 76.11 

40LETALF = A'PI/180: LET C = COS (ALF) 

50LETS = SIN(ALF) 

60 LET N MAX = 200 

70 LET M = 52 

80FORJ = 1 TOM 

90LETX = 0:LETY = J/M 

100FOR N = 1 TONMAX 

110LETW = X 

120LETX = X"C-(Y-X*X)"S:LET 

Y = W'S + (Y-W'W)*C 
130 IF ABS (X) >4 OR ABS (Y) >4 THEN 

GOTO 860 
135IFX>1 OR Y>1 THEN GOTO 150 
140PLOTX"128 + 128,Y'85 + 85 
150 NEXT N 
160 NEXT J 



ss 



10 HIRES 0,1:COLOUR 1,6:MULTI 5,3,7 

20 A = 76.1 

30AL = A*7c/180:C = COS(AL) 

40S = SIN{AL) 

50NM = 200 

60M = 52 

70FORJ = 1 TOM 

80X = 0:Y = J/M:CL=RND(1)-3 + 1 

90 FOR N = 1 TO NM 

100 W = X 

1 1 X = X-C - (Y - X-X)-S:Y = WS + (Y - 

W'W)X 
120 IFABS(X)>4 0R ABS(Y}>4THEN 160 
125 IFABS(Y)>1 OR ABS(X)>1 THEN 140 
130 PLOT80 + X-79,100-Y*99,CL 
140 NEXT N,J 
150 GOTO 150 



10 GRAPHIC 1:C0L0R 6,1,3,7 

20 A = 76.1 

30AL = A*7c/180:C = COS(AL) 

40S = SIN(AL) 

50NM = 200 

60M = 52 

70FORJ = 1TOM 

80 X = 0:Y = J/M:CL = RND(1)'3 + 1 

90 FOR N = 1 TONM 

100 W = X 

1 1 X = X-C - (Y - X*X)*S:Y = W*S + 

(Y-WW)*C 
120 IF ABS(X) >4 OR ABS(Y) >4 THEN 160 
125 IFABS(Y)>1 OR ABS(X)>1 THEN 140 
130 POINT CL,512 + X*512,512-Y*512 
140 NEXT N, J 
150 GOTO 150 



10 MOOE0 

20 A = 76.11 

30ALF = A*PI/180:C = COS(ALF) 

40S = SIN(ALF) 

50 N MAX = 200 

60M = 52 

70 FOR J = 1 TO M 

80X = 0:Y = J/M 

90FORN = 1 TONMAX 

100 W = X 

110X = X'C-(Y-X"X)*S:Y = WS + 

(Y-W'W)*C 
120 IF ABS(X) >4 OR ABS(Y) >4 THEN END 
1 30 PLOT 69,X*640 + 640,Y*51 2 + 51 2 
140 NEXT 
150 NEXT 



lahd 



10PMODE4,1:PCLS1:SCREEN1,0 
20A = 76.11:PI = 4'ATN(1) 



30AL = A'PI/180:C = COS(AL) 

40S = SIN(AL) 

50NM = 200 

60M = 52 

70FORJ = 1TOM 

80X = 0:Y = J/M 

90FORN = 1TONM 

100 W=X 

110X = X*C-(Y-X'X)*S:Y = WS + 

(Y-WW)'C 
1 20 IF ABS(X} > 4 OR ABS(Y} > 4 THEN 1 60 
125 IF ABS(Y) > 1 OR ABS(X} > 1 THENU0 
130 PRESET(1 28 + X*1 28,96 -Y'96) 
140 NEXT N 
150 NEXT J 
160GOTO160 

This program simulates motion of subatomic 
particles (such as protons or electrons) in an 
accelerator, or the windings of a line of force 
in the magnetic bottle of a fusion power 
device. Mathematically, what the program 
does is to take a series of initial points and 
move them about the screen by repeating a 
rule that says: 'rotate about the middle of the 
screen by a fixed angle, apart from a slight 
modification'. Without the 'slight modific- 
ation' the orbits of the points would all be 
circles, and indeed those near the centre are 
roughly circles. But the modification has a 
dramatic effect on points initially far from the 
centre; their orbits may be a series of 'islands', 
or they may escape from the screen altogether. 
More refined computer graphics, using high 
magnification, reveals tiny islands every- 
where, distributed amongst the large ones. 

In the program, the number of initial 
points is M, specified in Line 60; if you get 
tired of waiting for the picture you can reduce 
this number. Each of these points is plotted 
for NMAX or NM repetitions of the transform- 




Focusing light in a glass fibre 



Islands of dots or lines of force 
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ation rule; NMAX or NM is specified in Line 
50. The rule itself is contained in Lines 100 
and 110, which describe how the horizontal 
and vertical screen coordinates X and Y are 
altered at each repetition. The angle of the 
unmodified rotation, in degrees, is A, speci- 
fied in Line 20; you should experiment with 
different values of A (try 90). 

An unexpected pattern made of dots gen- 
erated by a single initial point is produced by 
the next program which you should now enter 
and run: 



20 LET K = 51.3: BORDER 0: INK 7: PAPER 0: 

CLS 
30LETX = 1/PI:LETP = 
40LETA = 1/SQR5 
50FORN = 1 TO 10000 
60LETY = X-.5: LET X = X + A-INT (X + A) 
70LETP = P-Y 
80PLOTX*255,P*K-h85 
90 NEXT N 

KH 

10 HIRES 0,1:COLOUR 1,6: 

MULTI 5,3,7:K = 60 
20X = 1/7r:P = 
30A = 1/SOR(5) 
40FORN = 1 TO 10000 
50Y = X-.5:X = X + A-INT(X-hA) 
60P = P-Y 
70PLOTX"159,100-P-K,RND 

(1)*3 + 1 
80 NEXT N 
90 GOTO 90 
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30A = 1/SQR(5) 

40FORN = 1 TO 10000 

50Y = X-,5:X = X-l-A-INT(X-l-A) 

60P = P-Y 

70 POINT RND(1)"3-M,X"1023, 

512-P*K 
80 NEXT N 
90 GOTO 90 



a 



10MODE0;K = 300 

20X = 1/PI:P = 

30A=1/SQR(5) 

40FORN = 1 TO U 

50Y = X-,5:X = X-hA-INT(X + A) 

60P = P-Y 

70PLOT69,X'1279,P"K-h512 

80 NEXT 
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10 GRAPHIC LCOLOR 6,1,3,7; 

K = 300 
20X = 1/7r:P = 



10PMODE4,1:PCLS1:SCREEN1,0: 

K = 60 
20X = 1/(4*ATN(1)):P = 
30A = 1/SQR(5) 
40 FOR N = 1 TO 10000 
50Y = X-.5:X = X-hA-INT(X-hA) 
60P = P-Y 

70PRESET(X*255,128-P*K) 
80 NEXT N 
90 GOTO90 

This program is an abstract simulation of 
resonance, where the frequencies of two phys- 
ical effects may clash. For example, one 
frequency might be that of an asteroid's 
motion round the sun, and the other might be 
the frequency with which the asteroid is 
disturbed by the gravitational pull of the 
planet Jupiter. In this case an important 
question is: do the disturbing pulls mount up 
and throw the asteroid out of its orbit^ or do 
they force it into a stable orbit? The answer is 



that this depends on the ratio of the two 
frequencies (that is, on one divided by the 
other). The particles in Saturn's rings are 
affected by similar forces. 

In the program, the ratio is called A and its 
value (which must be less than 1 ) is specified 
in Line 30. The number of repetitions of the 
resonance transformation is 10000 and is 
specified at the end of Line 40; reduce this 
value if you get tired of waiting. The trans- 
formation itself is on Lines 50 and 60, and is 
the rule for changing the horizontal (X) and 
vertical (P) positions of the dot on the screen. 

As written, the delicate curtain pattern is 
produced by A = 1/SQR(5) which equals 
0.4472136. This is not the ratio of two whole 
numbers (it is an 'irrational number') and 
corresponds to nonresonance. To get reson- 
ance you should try a number that is the ratio 
of two whole numbers, such as A = 9/20 
which equals 0.45. Then try a different 
irrational number, such as A = 1/PI. (If you 
want to reduce the vertical scale to display 
more of the picture, diminish the value of K. 
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It is a remarkable fact that some simple rules 
produce no pattern at all. Such an example is 
the program below which you should enter 
and RUN: 



10 BORDER 0: PAPER 0: INK 7: CLS 

20LETX = 1/PI 

30LETY = 1/PI 

40FORM = 1 TO 10000 

50 LETX = X-fY-INT(X + Y) 

60LETY = X + Y-INT(X-|-Y) 

70PLOTX'255,Y*175 

80 NEXT M 




Some simple rules produce chaos 



Population changes in a flsh pond 



'•\^!<':;:i'Ir!;M: 



10 HIRES 0,1:COLOUR 6,6: 

MULTI 5,3,7 
20X = 1/7i 
30Y = 1/7i 

40FORM = 1 TO 10000 
50X = X + Y-INT(X+Y) 
60Y = X + Y-INT(X + Y) 
70 PLOT X*1 59,1 99 -n 99, 

RND(1)'3 + 1 
90 NEXT M 
90 GOTO 90 



10 GRAPHIC 1:C0L0R 6,1,3,7 

20X = 1/7r 

30 Y = 1/7: 

40 FOR M = 1 TO 10000 

50X = X + Y-INT(X + Y) 

60Y = X + Y-INT(X + Y) 

70 POINT RND(1}'3 + 1,X*1023, 

1 023 -Y* 1023 
80 NEXT M 
90 GOTO 90 



10MODE0 
20X = 1/PI 
30Y = 1/PI 
40FORM = 1 TOK 
50X = X + Y-INT(X+Y) 
60Y = X + Y-INT(X + Y) 
70PLOT69,X'1279,Y*1023 
80 NEXT 
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10PMODE4,1:PCLS1:SCREEN1,0 
20PI = rATN(1):X = 1/PI 
30Y = 1/PI 

40FORM = 1TO10000 
50X = X + Y-INT(X + Y) 
60Y = X + Y-INT(X + Y) 
70PRESET(X"255,192-Y'191) 
80 NEXT M 
90 GOTO 90 

This program simulates the erratic bouncing 
of metal spheres in a pinball machine, or the 
motion of molecules in a gas, or of a roulette 
wheel, or indeed any dynamic system whose 
orbits are so unpredictable as to be indistin- 
guishable from what would be generated by 
purely random processes. And yet the ten 
thousand points on the screen are not the 
result of random sprinkling but are generated 
by the program from a single point by 
repeating a rule that is purely deterministic — 
that is, it contains no random element. 

The rule is based on regarding the screen as 
the 'unit square' on which horizontal distance 



X and vertical distance Y range from zero to 
one, and operates in three stages, constituting 
Lines 50 and 60 of the program. First, the X 
and Y coordinates of a point are added to 
produce a new X; second, this new X is added 
to Y to produce a new Y; third, if either of the 
new X or Y lies outside the range to 1, an 
appropriate whole number is subtracted in 
order to bring the transformed point back into 
the unit square (in the program this subtrac- 
tion is implemented by the INT function in 
Lines 50 and 60). 



FISH POPULATIONS 



How does the population of fish in a pond 
change over many generations? This depends 
on the rule that determines how the popul- 
ation changes from one generation to the next. 
Such a rule must incorporate both the ten- 
dency of the population to increase because 
each set of parents produces more than two 
offspring, and the tendency of the population 
to decrease when it gets so large that the finite 
food supply in the pond cannot sustain it. 
Depending on the precise balance between 
these two dependencies a fish population may 
settle down to a stable fixed value, or alternate 
regularly between two or more values, or 
change apparently randomly between suc- 
cessive generations. 

The final program employs graphics and 
sound to illustrate these different possi- 
bilities. Horizontal screen position, denoted 
by A, corresponds to the balance between 
breeding and food supply and hence to the 
rule relating successive generations. Vertical 
screen position, denoted by Y, corresponds to 
the population, represented by a point jump- 
ing up or down at each generation. The 
population Y is plotted on the screen only 
when it has settled down to its stable value or 
set of alternating values, called the allraclor 
set. But the way in which the population 
homes in on the attractor can be heard 
because the program makes the computer 
emit a sound whose pitch (frequency) is 
proportional to the population. 



10 BORDER 0: INK 7: PAPER 0:CLS 
20LETS = .03LETNMIN = 50:LET 

N MAX = 80 
30FORA = 2.8TO4STEPS 
40LETY = 1/PI 
50FOR N = 1 TONMAX 
60LETY = A*Y"(1-Y) 
70 IF N>NMINTHEN PLOT 255* 

(A-2.8)/1.2,Y*175 
80 BEEP .0075,Y'20 
90 NEXT N 
100 NEXT A 



10 HIRES 0,1:COLOUR 1,6: 

MULTI 5,3,7 
15 POKE 54296,1 5:P0KE 54277,64 
20S = 1/160:NN = 50:NX = 80 
30FORA = 2.8TO4STEPS 
40Y = .25/ATN(1} 
45 POKE 54276,33 
50FORN = 1 TO NX 
60Y = A*Y*(1-Y) 
70 IF N > NN THEN PLOT 159'(A- 2.8)/1.2, 

199-Y"199,RND(1)'3-h1 
80POKE54273,H-255"Y 
90 NEXT N 
95 POKE 54276,32 
100 NEXT A 
110 GOTO 110 



10 GRAPHIC 1:C0L0R 6,1,3,7 

15 POKE 36878,15 

20S = .01:NN = 50:NX = 80 

30FORA = 2.8TO4STEPS 

40Y = .25/ATN(1) 

50FORN = 1 TO NX 

60Y = A*Y*(1-Y) 

70 IF N>NN THEN:POINT RND(1)*3-h1, 

1023"(A-2.8)/1.2,1023-Y'1023 
80 POKE 36876,1 28 -h127*Y 
90 NEXT N 
95 POKE 36376,0 
100 NEXT A 
110 GOTO 110 



a 



10MODE0 

20S = .03:NMIN=50:NMAX = 80 

30FORA = 2.8TO4STEPS 

40Y = 1/PI 

50FORN = 1 TONMAX 

60Y = A-Y'(1-Y) 

70IFN>NMINTHEN PL0T69,1279* 

(A-2.8)/1,2,Y'1023 
80SOUND1,-15,255*Y,1 
90 NEXT 
100 NEXT 
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10PMODE4,1:PCLS1:SCREEN1,0 

20S = 1/127:NN = 50:NX = 80 

30 F0RA = 2.8T04 STEPS 

40Y = .25/ATN(1) 

50FORN = 1TONX 

60Y=A-Y*(1-Y) 

70IFN>NNTH£NPRESET(255"(A-2.8)/1.2, 

192-Y*191} 
80SOUNDH-255*Y,1 
90 NEXT N 
100 NEXT A 
110GOTO110 




It is clear that the altractor undergoes drastic 
changes as the amount of food is slowly 
altered. To start with (on the left of the 
screen), the attractor is a single point, indicat- 
ing an eventually stable fish population. This 
means there is enough food for the fish to live 
healthily and breed well. If the population 
increases too much there will be less food to 
go around so some fish will die of starvation. 
This leaves more food for the survivors so 
they grow and breed well again. Eventually 
the numbers in each generation settle down 
to a constant stable population. In the 
program you'll hear the sound oscillating 
between each generation but settling down to 
a stable value each time, 

Suddenly, at a certain value of A, as the 



food is increased past a certain level, the 
attractor is seen and heard to branch into two 
or bifurcaUf indicating a population eventu- 
ally alternating between two values. Later, 
with even more food, the attractor bifurcates 
again, indicating four alternating population 
values. More and more divisions occur, form- 
ing an infinite sequence of which only the first 
few are resolved by this program. The suc- 
cessive bifurcations accumulate at a finite A 
value, corresponding to a fish population that 
fluctuates among infinitely many values with- 
out ever settling down. 

Much excitement has been generated by 
the discovery that this 'bifurcation tree', 
ending in chaos, arises in a wide range of 
mathematical contexts. An important applic- 



ation is to the way in which the motion of a 
flowing liquid changes in stages from smooth 
(stable attractor) to turbulent (chaotic at- 
tractor) as the speed increases (from the lazy 
river to the raging torrent). The same thing 
can be seen as smoke from a cigarette rises 
gently then suddenly spirals and swirls into 
turbulent eddies. 

In this program the population evolution 
rule is specified in Line 60. Use of the sound 
command gives a vivid impression of how the 
orbit reaches the attractor, but does slow the 
program down. To get a clearer picture of the 
attractor itself in a reasonable time first delete 
Line 80. You can increase the resolution by 
changing Line 20 so that S = 0.005, NMINor 
NN = 200andNMAXorNX = 300. 
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TAILORIN 
SPIREADSH 




Since a spreadsheet starts out as a blank sheet 
of paper (or a blank screen!) it is sometimes 
difficult to know exactly what to use it for. 
The examples given last time and the ideas 
below should help, and you should be able to 
tailor one of them to your own needs. And of 
course, there is no need to limit yourself to 
just one sheet. The program can be used to set 
up any number of spreadsheets which can be 
saved and reloaded at any time. 

Here are a few examples. You could have 
one sheet to record and plan out your house 
expenses, where entries would go under head- 
ings such as rates, mortgage, insurance, re- 
pairs, etc. But if you were making a lot of 
repairs you might want to set up a separate 
sheet for these. You could itemise the differ- 
ent types of repairs, as well as decorations and 
furnishings for individual rooms, showing 
how much was spent each month or each 
quarter. The program could then total the 
expenditure for each type of repair over the 
whole house, or the total expenditure for each 
room. 

Yet another sheet could include all general 
family expenses such as food and drink, 
clothing, car, holidays and entertainment. It 
could list these under different weeks or 
months, or under different members of the 
family. 

But because the sheet starts off completely 
blank you can use it for any information that 
needs to be laid out in a logical way. For 
example a club membership spreadsheet 
could list members' names, numbers and 
subscriptions paid, as well as listing and 
adding up the attendances each week — using 
labels for most of the entries. 

A spreadsheet is also ideal for entering 
details of any survey. In fact if you look back 
at the article on pages 269 to 275 you'll see 
that the spreadsheet is really just a much more 
sophisticated version of a two-dimensional 
array. The spreadsheet allows you much more 
control over the way the entries are made and, 
because you can enter equations as well, the 
result of the survey can be calculated 
immediately. 

Business uses are more obvious, and are 
virtually unlimited. Spreadsheets can hold 
details of invoices, displaying details of the 



items along with their cost, VAT, discounts 
and so on. They can work out staff salaries, 
where the names of the staff, hours worked, 
rate of pay, allowances and tax are all listed or 
worked out by the spreadsheet. They can be 
used for stocktaking, for general accounts and 
for budgeting — including making alternative 
forecasts for the future at the push of a button. 



ENTERING THE PROGRAM 



The section of program given here joins on to 
the one given last time. The remainder ap- 
pears in the next article which also gives 
detailed instructions on how to use it. So 
LOAD in the last part, add these lines and SAVE 
it ready for next time when you will be able to 
RUN the complete program. 



420FOR3 = fcTOtc:FORb = frTOtr 
430IFz$(3,2) = "C"THENLET 

v(2)=v(2) + 1:LET 

v(4)=v(4}-f-(v(3)<>26) 
440IFz$(3,2) = "R"THEN LET 

v(3)=v(3) + (v(3)<>26):LET 

v(1)=v(1} + 1 
4501Fv(1)<25ANDv(2)<31 AND 

v(3) =26 THEN GOTO 470 
460 IF v(1 ) > 24 OR v(2) > 30 OR v(3) > 24 

ORv(4)>30THENGOTO570 
470IFv(1)<i 0Rv(2)<1 0Rv(3)<1 OR 

v(4)<1 THEN GOTO 570 
480LETa$ = CHR$(v(1)+64)-hSTR$ 

v(2)-f-CHR$(v(3)-F64)-f-STR$v(4) 

-1-0$ 
485 LET c = LEN a$: IFC>8THEN RETURN 
490 RESTORE 1630: FOR q = 1 TO 11: LET 

f = 0: READmS: FOR w = 1 TO c 
500 IF m$(w) = "A" THEN GOSUB 1650: IF f 

THEN GOTO 560 
510 IF m${w) ="N" THEN GOSUB 1670: IF f 

THEN GOTO 560 
520IFm${w) = '7"THEN GOSUB 1710: IF f 

THEN GOTO 560 
530 IF m$(w) = "0" THEN GOSUB 1690: IF i 

THEN GOTO 560 
540 NEXT w: LET z = q: GOSUB 1 1 40: 

IFNOTfTHENLETs$ = "nnn 

nnnnn": forw=i toc: let . 

s$(w) =a$(w}: NEXT w: LET d$(b,a,9 TO 
16)=s$: LETd$(b,a,18)=CHR$z: LET 



Find out where your money goes or 
plan out the future of your business 
with this handy spreadsheet 
program. Add some more lines to 
the program started last time 
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PLANNING THE SPREADSHEET 



GENERAL USES 



FAMILY BUDGET 



HOUSEHOLD EXPENSES 



CLUB MEMBERSHIP DETAILS 



BUSINESS USES 



INVOICES 



STAFF SALARIES 
STOCKTAKING 



ENTERING THE PROGRAM 
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d$(b,a,17) = "r':NEXTb:NEXTa: 

RETURN 
550 GOTO 570 
560 N EXT q 
570 RETURN 

580LETe = c: LETa$ = "nnn" 
590 PRINT #1;AT 0,x; BRIGHT 1;"n" 
600 PAUSE 0: LET i = CODE INKEY$ 
610 IF i>88 THEN GOTO 600 
620 IF 1 = 13 THEN GOTO 650 
630IFi = 12THENLETa$(4-e) = "n": 

LETe = e + 1: LETx = x-1 
640 LETa$(4-e) = CHR$i: PRINT #1;AT 

0,x;CHR$i: LETx = x + 1: LETe = e-1: 

IF e>0 THEN PAUSE 10: GOTO 590 
650IFe>1 AND(d = 1 ORct = 4 0Rd = 5) 

THEN GOTO 590 
655IFe>0AND (d = 2 OR D = 3) THEN 

GOTO 590 
660 PAUSE 10: PRINT #1;AT 0,0; 

"nnnnnnnnnnnnnn 
nnnnnnnnDnnnnnn 

nn":RETURN 
670LETi$ = "" 
680FORz = 1 TO 3 
690LETi$ = iS+(a$(z) AND 

a$(z)<>"n") 
700 NEXT z 
710 IF LEN i$ = 3 THEN IF i$(1) <"A" OR 

i$(1)>"X"ORi$(2)<"0"OR 

i$(2)>"9"ORi${3)<"0"OR 

i$(3)>"9"THEN LETf = 1: RETURN 
720 IF LEN i$ = 3 THEN IF VAL i$(2 TO 3) = 

ORVALi$(2TO3)>30THEN LETf=1: 

RETURN 
730 IF LEN i$ = 2 THEN IF iS(1)<"A" OR 

i$(1)>"X"0Ri$(2)<"1"0R 

i$(2)>"9"THEN LETf=1: RETURN 
740 IF d = 2 THEN IF i$(1)<>"A" AND 

i${1)<>"R" THEN LETf = 1: RETURN 
750 IFd = 3THEN IF i$(1)<>"C" AND 

i$(1 )<> "R" THEN LET f= 1 : RETURN 
760 LET z$(d,2 TO ) = i$: LET z$(d,1 ) = CHR$ 

(LENi$ + 48):LETf=0: RETURN 
770 LET fc = (CODE z$(4,2)) - 64: LET 

tc = (CODEz$(5,2)}-64: LETfr = VAL 

z$(4,3T0(1+VALzS(4,1})): LETtr = VAL 

z$(5,3TO{1+VALz$(5,1))) 
780 IF z$(3,2) = "C" THEN IF fcotc OR 



fr>trTHEN LETf = 1: RETURN 
790 IF z$(3,2) = "R" THEN IF fotc OR 

ffOtrTHEN LET f=1: RETURN 
800LETf=0: RETURN 
810FORv = 1 TO 30: F0Rx = 1 TO 24: LET 

os = 
820 IF d$(y,x,17) = "1" THEN LET z = CODE 

d$(y,x,18): GOSUB 880: GOSUB 1010: 

LET St = 1 : LET a$ = STR$ t: LET os = LEN 

a$: IF t> 99999.99 THEN LET 

d$(y,x,17) = "5": RETURN 
330 IF OS > 8 THEN LETst = os-7 
840 IF os = THEN GOTO 860 

850 LETs$="nnnuunnn": for 

u = stTO os: LETs$(u-st + 1)=a$(u): ■ 
NEXT u: GOSUB 1410: LET d$(y,x, TO 
8) = s$ 

860 LET i = IN 32766: IF i = 252 THEN PRINT 
#1;AT0,0; PAPER 2; INK 7;"CALCULATE 
ABORTED": RETURN 

870 NEXT x: NEXT y: RETURN 

880 LETs$ = d$(y,x,9T016} 

8901Fz = 1 THEN LET v(1) = (C0DE 
s$(1})-64: LETv(2)=VALs$(2): LET 
v(3) = (CODE s$(3)) -64: LET v(4) =VAL 
s$(4): LETo$ = s$(5): RETURN 

900 IF z = 2 THEN LET v(1) = (CODE 
s$(1)) -64: LET v{2) = VAL s$(2 TO 3): 
LETv(3) = (CODEs$(4))-64:LET 
v(4) = VALs$(5): LETo$ = sS(6): RETURN 
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860AS = A$ + "n" 

870A$ = LEFT$(A$,LEN(A$)-1) 

880 IF RIGHT$(AS,l) = "n" THEN 870 

890PS = 1:LN = LEN(A$):K = 

900IFLN = 1 ANDA$ = "R"THENF1=3: 

RETURN 
910IFLN = 1 THENF1=0:RETURN 
920IFLN = 0ANDRIGHT$(D$(R,C),8) = 

"nnnnnnnn"THEN A$ = 

CHR$(128):F1=3:RETURN 
930 GOSUB790 
940PS = PS + 1 + D1 
950IFD1=0THENF1=0:RETURN 
960IFPS<LN-1 THEN 930 
970 IFPS>LNTHEN F1=3:RETURN 
980 Q1$ = 0P$:Q2$ = MID$(A$,PS,1): 

GOSUB 2670 



990 IF = THEN F1=0:RETURN 
1000D = VAL(RIGHT${A$,1)) 
1010 IF LN = PS THEN F1=3:RETURN 
1020 IF LN = PS + 1 AND D>1 AND D<10 

THEN F1=3:RETURN 
1030F1=0;RETURN 
1040 IF A$ = ""THEN RETURN 
1050 GOSUB 860 
1060 IF F1=0 THEN A$ = "":INPUT 

"□ENTER|J";A$:GOTO1040 
1070 RETURN 
1080PRINT"M"SPC(16) 

"aWORKINGJS" 
1090 FOR = 1 TO CM 
1100 FOR R = 1 TORM 
1110D = 0:F = 0:OP = 8 
1120F$=LEFT$(D$(R,C),8) 
1130C1=ASC(MfD$(F$,1,1))-64 
1140 IF CI =64 OR CI = -32 THEN 1230 
1150 IF CI =18 THEN GOSUB 1320: 

GOTO 1230 
1160 R1 =VAL(MIDS(F$,2,2)):IF R1 >9 THEN 

F = 1 
1170C2 = ASC(MID$(FS,3 + F))-64: 

IF C2= -32 THEN GOSUB 1360: 

GOTO 1230 
1180 IF C2= -3 THEN D = VAL(MID$ 

(F$,4 + F,2)):G0SUB 1360:GOTO 1230 
1190R2 = VAL(MID$(F$,4 + F,2)): 

IFR2>9THEN F=F + 1 
1200Q1$ = OP$:Q2$=M1D$(F$,5 + F,1): 

GOSUB 2670 
1210D = VAL(MID$(F$,6 + F,2)) 
1220 GOSUB 1360 
1230 NEXT R,C 
1240 RETURN 

1250 GETA$:IFA$ = "" THEN 1250 
1260 IF A$<AA$ OR A$>BB$ THEN 1250 
1270 RETURN 

1280 GET A$:IFA$ = "" THEN 1280 
1290 IF A$ = AA$ THEN RETURN 
1300 IF A$= BBS THEN RETURN 
1310 GOTO 1280 
1320 AA$ = RIG HT$(D$(R,C),8) 
1330 IF RIG HT$(AA$,1) = "n" THEN 

AA$ = LEFT$(FS,7):GOTO1330 
1 340 D$(R,C) = LEFT$(D$(R,C),8) + AA$ 
1350 RETURN 
1360V1=VAL(RIGHT$(DS(R1,C1),8)):V2 = 
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VAL(RIGHT$(D$(R2,C2),8)) 
1370 ON Q GOSUB 1420,1430,1440,1450, 

1460,1470,1510,1550 
1380AA$ = STR$(AN):IFLEN(AA$)>8 

THEN AA$ = "TO0a BIG" 
1390 IF L£N{AA$}<8 THEN AA$ = "n" + 

AA$;GOTO1390 
1400D$(R,C) = F$ + AA$ 
1410 RETURN 

1420AN=V1+V2:RETURN 
1430AN=V1-V2:RETURN 
1440AN = VrV2:RETURN 
1450AN=V1/V2:RETURN 
1460AN = V2*V1/100:RETURN 
U70AN=0:FORNN = R1 TO R2 
U80AN=AN+VAL{MID$(D$ 

(NN,C1),9,8)) 
1490 NEXT NN 
1500 RETURN 

1510AN=0:FORNN = C1 TO C2 
1520 AN = AN + VAL(MID$(D$(R1, 

NN),9,8)) 
1530 NEXT NN 
1540 RETURN 
1550AN = V1:RETURN 
1560 PRINT"DO YOU WISH TO SAVE THIS 

DATA (Y/N)?" 
1570AA$ = "Y":BB$ = "N"; 

GOSUB1280 
1580 IF A$ = "N" THEN RETURN 
1590INPUT"aNAME";NM.$: 

0PEN1,1,1,NM$ 
1600PRINT#1,RM:PRINT#1,CM: 

F0RR = 1 TORM 
1610 FOR C = 1 TO CM 
1620 PRINT#1,CHR$(34) + D$(R,C) + 

CHR$(34) 
1630 NEXT C,R:CL0SE1:RETURN 
1640 PRINT"aMfc|DO YOU WISH TO 

LOAD" 
1650 PRINT"|iAN EXISTING FILE (Y/N)?" 
1660AA$ = "Y":BB$ = "N":GOSUB1280 
1670 IF A$ = "N" THEN RETURN 
1680 INPUT"NAME";NM$:OPEN 1,1, 

0,NM$ 
1690 INPUT#1,RM,CM:F0R R = 1 TO 

RM:F0RC = 1 TO CM 
1700INPUT#1,D$(R,C):NEXTC,R 
1710 CLOSE 1:RETURN 



a 



870 DEF FNformat 

880 IF LENA$>8 A$ = LEFT$(A$,8} 

890 IF Type = 8 AND LENA$ < 8 REPEAT 

A$ = A$ + "n":UNTIL LENA$ = 8 
900 IF Type = AND LENA$ < 8 REPEAT 

AS = "n" + A$:UNTIL LENA$ = 8 
910 =A$ 

920 DEF FNboxcheck(pos) 
930 LOCAL a$,b$,p,d 
940a$ = MID$(A$,pos,3) 
950b$ = LEFT$(a$,1) 
960IFb$<"A"ORb$>"X" =0 
970p = VAL(RIGHT$(a$,2)) 
980d = 2:!Fp<10d = 1 
990IFp>ColsOR p<1 =0 
N.B. In Line 990, Electron users should 
change Cols to ROWS 
1000 =d 
1010 DEF FNCheck 
1020 LOCALpos,ln,f,d,k 
1030A$ = A$ + "n" 
1 040 REPEAT A$ = LEFT$(A$,LENA$ - 1 } 
1050 UNTIL RIGHT$(A$,1)<>"n" 
1060pos = 1:ln = LENA$ 
1070 IF In = 1 ANDA$ = "R" =3 
1080IFIn = 1 =0 
1090IFIn = 0ANDRIGHT$(D$(Row,Col), 

8) = STRING$(8,"n") A$ = CHR$(128): 

= 3 
1100 REPEAT 
1110k = k + 1 
1120f = FNboxcheck(pos) 
1130pos = pos + 1+f 
1140 UNTIL f = OR pos> =ln OR k = 2 
1150IFf = 0=0 
1160 IFpos>ln =3 

1170 IF INSTR(Op$,MID$(A$,pos,1)) = =0 
1180d = VAL(RIGHTS(A$,1)) 
1190IFIn = pos =3 
12001Fln = pos + 1 ANDd>-1 AND 

d<10 =3 
1210 =0 

1220 DEF PROCformulacheck 
1230LOCALvpos,f 
1 240 vpos = VPOS + 1 :IF A$ = "" THEN 

ENDPROC 
1250 REPEAT 



1260 f= FNCheck 

1270 IF f = PRINTTAB(0,vpos}CHR$129; 

"INCORRECT:PLEASE RE-DOn";:INPUT 

""A$ 
1280 UNTIL f>0 
1290 ENDPROC 
1300 DEF PROCcalculate 
1310PRINTCHR$129;CHR$136;"WORK1NG" 
1320 FOR c% = 1 TO Cols 
1330 FOR r% = 1 TO Rows 
1340d% = 0:f% = 0:op% = 8 
1350 F$ = L£FT$(DS(r%,c%),8) 
1360c1% = FNc(1} 

1370 IF c1% = 64 OR c1%= -32 GOTO 1470 
1 400 r1 % = FNr(2) : I F r1 % > 9 f% = 1 
1 41 c2% = FNc{3 + f%} : I F c2% = - 32 

PROCarith:GOTO1470 
1420 IF c2%= -3 d%=FNr(4 + f%): 

PROCafith:GOTO1470 
1 430 r2% = FN r(4 + f%) ; I F r2% > 9 

f% = f% + 1 
1440 op% = INSTR(0p$,MID$(F$,5 + f%,1 )) 
1450d%=FNr(6 + f%) 
U60 IF op%<>0 THEN PROCarith 
1470 NEXT 
1480 NEXT 
1490 ENDPROC 
1500 DEF FNr{p%)=VAL(MID$ 

(F$,p%,2)) 
1510 DEF FNc(p%)=ASC(MID$ 

(F$,p%,1))-64 
1520 DEF FNvl =VAL(RIGHT$(D$(r1%, 

c1%),8)) 
1530 DEF FNv2 = VAL(RIGHT$(D$(f2%, 

c2%),8)) 
1540 DEF PROCgetbet(a$,b$) 
1550 REPEAT A$ = GETS 
1560 UNTIL A$>a$ AND A$<b$ 
1570 ENDPROC 
1580 DEF PROCgetabs(aS,b$) 
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1590 REPEAT AS = GET$: UNTIL A$ = a$ OR 

AS = b$ 
1600ENDPROC 
1670DEFPROCarith 
1680LOCALans,a$,d 
1690 ON op% GOSUB 1780,1790,1800,1810, 

1820,1830,1870,1910 
1700 IF d% = THEN ans = mT(ans + .5): 

GOTO 1720 
1 71 @% = &1 020008 + d%*256 
1720a$ = STR$(ans):IFLENa$>8 

a$ = CHR$135 + "TOO BIG" 
1730IFLENa$<8a$ = "n" + a$: 

GOTO1730 
1740D$(r%,c%) = F$ + a$ 
1750@% = &90A 
1760 ENDPROC 

660 A$ = D$(I,J):B$ = MID$(A$,2) 

670AT = ASC(A$) 

680 IF AT = 128THEN PRINTSTRING$(7,32};: 

GOTO 720 
690IFAT = 129OR AT=130THEN PRINT 

USING "%n D D D n%";B$;: 

GOTO 720 
700FORU = 1 TO LEN(B$}:IF MID$ 

(B$,U,1)<>CHR$(32)THEN PRINT 

M1D$tB$,U,1); 
710NEXTU 
720 RETURN 
730 CI =ASC(Z$)-64:C2 = VAL(IVIID$ 

(Z$,2)):V=D(C1,C2):RETURN 
740 PRINT@448,"WORKING" 
750 FOR J = 1 TORX 
760 FOR 1 = 1 TO CX 
770 D(l,J) = 0:IFASC(D$(l,J)) = 129 THEN 

D(I,J)=VAL(MID$(D$(I,J),2)) 
780 NEXT U 
790FORJ = 1 TORX 
800 FOR 1 = 1 TOCX 
810 PRINT@448,"W0RKING ON CELLD"; 

CHR$(I + 64);MIDS(STR$(J),2) 
820IFASC(D$(I,J)}<>131 THEN 1130 
830A$ = MID$(D$(I,J),2> 
840O$ = MID$(A$,7,1) 
850 IF 0$ = "&" THEN 1050 
860 IF 0$ = "$" THEN 1090 
870Z$ = LEFT$(A$,3) 



880 GOSUB 730 

890 VI =V:Z$= MID$(A$,4,3):G0SUB 730: 

V2 = V 
900DP = VAL(RIGHT$(A$,1}) 
910 ON INSTR(1,0P$,0$) GOSUB 

1000,1010,1020,1030,1040 
920 OV = 0:IFDP = THEN PUS = 

"#######":MP = 7: 

GOTO 950 
930 PUS = STRING$(7-{DP + 1),"#") + 

"." + STRING$(DP,"#"):MP = 7- 

(DP + 1) 
940IFLEN(PU$)>7THEN RV$ = 

"nn<ov>":OV=i 

950D(I,J) = RV 

960IFRV<0THENMP = MP-1 
970ML = LEN(MID$(STR$(INT(RV+.5)),2)) 
980 IF ML> MP THEN RV$ = ''Dn 

<0V>":0V=1 
990 GOTO 1160 
1000RV = V1+V2:RETURN 
1010 RV = V1-V2:RETURN 
1020RV = VrV2:RETURN 
1030 IF V2 = THEN RV = 0:RETURN ELSE 

RV = V1/V2:RETURN 
1040RV=VrV2/100:RETURN 
1050P1=ASC(A$)-64:P2 = ASC(MID$ 

(A$A1))-64;C2 = VAL(MID$(A$,2,2)}: 

RV = 
1060 FOR CI = PI T0P2 
1070RV = RV+D(C1,C2):NEXT 
1080DP = VAL(R1GHT$(A$,1)): 

GOTO 920 
1090 PI =VAL(MID$(A$,2,2)):P2 = VAL 

(MID$(A$,5,2)):C1=ASC(A$) 

-64:RV = 
1100 FOR C2 = P1 T0P2 
in0RV=RV + D(C1,C2):NEXT 
1120DP = VAL(RIGHT$(A$,1)): 

GOTO 920 
1130IFASC(D$(I,J))<>128 

THEN 1150 
1140 RV$ = STRING$(7,32):G0T0 1160 
1150RV$ = MID$(D$(I,J),2) 
1160IFI>=CSANDI<=CS + 3AND 

J>=RSANDJ<=RS + 11 THEN 

PRINT@(J-RS}*32 

+ 35+(l-CS)*7,"";;PF = 1 

ELSEPF = 



1170IF{ASC(D$(I,J)) > = 128 AND 

ASC{D$(I,J)) < =130) OR 0V = 1 THEN 

1200 
1180IFPF = 1 THEN PRINT USING 

PU$;RV; 
1190 GOTO 1210 
1200IFPF = 1 THEN PRINTUSING 

"%nnDDn%";RV$; 
1210 NEXT l,J 
1220 RETURN 
1230 CLSrINPUT "DO YOU WANT TO SAVE 

THISSHEETnn(Y/N)";A$ 
1240 IF A$<>"Y" THEN 1340 
1250 LINE INPUT '■F!LENAME:";F$ 
1260 OPEN "0",#-1,F$ 
J270FORJ = 1 TORX 
1280 FOR 1 = 1 TOCX 
1290 IF ASC(DS(I,J)) = 128 THEN 1320 
1300 Z$ = D$(I,J):MID$(Z$,1,1) = CHR$ 

(ASC(MID$(Z$,1,1})-95) 
1310PRINT#-1,STR$(I),STR$(J): 

PRINT#-1,Z$ 
1320NEXTI,J 
1330CLOSE#-1 

1340 CLS:M0 = 1:G0SUB 70:RETURN 
1350 CLS:INPUT "DO YOU WANT TO LOAD A 

SHEET FROMTAPE {NOTE SHEET IN 

MEMORY WILL BE MERGED WITH THAT 

ONTAPE)nnnn(Y/N)";A$ 
1360 IF A$<>"Y" THEN 1480 
1370 PRINT"PRESS enter TO LOAD NEXT FILE 

ONTAPE- OR INPUT FILENAME 

NOW":PRINT 
1380 LINE INPUT 'TILENAME:";F$ 
1390 OPEN "r,#-1,F$ 
1400 IF EOF(-I) THEN 1470 
1410INPUT#-1,A$,B$:LINE 

INPUT#-1,C$ 
1420 MID$(C$,1,1} = CHR${ASC(MID$ 

(C$,1,1}) + 95) 
1430 CI =VAL(A$):C2 = VAL(B$):D$(C1, 

C2) = C$ 
U40IFC1>CXTHENCX = C1 
1450 IF C2>RX THEN RX = C2 
1460 GOTO 1400 
1470CLOSE#-1 
1480CLS:CC = 1:CR = 1:CS = 1:RS = 1: 

MO = 1:GOSUB70:RETURN 
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filling in with 
Acorn 



953-959 



Aniniiidon 




in Teletext mode 




of UDGs in clifflianger 


992-997 


BBC 


1068-1073 


using colour fill techniques 




routines for changing 




Acorn 


955-959 


Commodore di 


872-877 


ming GCOL 3 




Computer Aided Design 




Acorn 


999-1000 


rubber-banding and picking 




using paged graphics 




and dragging 


998-1004 


1022-1027, 


1132-1137 


Conic sections 857-863, 889-895 


Applications 








calendar and diary program 








1010-1016, 1017-1021, 


1064-1067 






hobbies file, extra options 


947-952 


D 




magnification program 


1081-1087 




spreadsheet program 




Digital clock routine 


896-898 


1118-1126, 


1172-1176 


Dynamics, programs to 




text-editor program 




illustrate 


1164-1171 


852-856, 878-883, 914-920 







B 



BASIC 

adding instructions to 

AcoTTit Dragont Spectrum 844-851 

Basic programming 
analyzing and storing sounds 1091-1095 
animation with paged graphics 

1022-1027, 1132-1137 
colour commands. Acorn 953-959 

Computer Aided Design 998-1004 

designing a new typeface 838-843 

drawing conic sections 859-863, 889-895 
how programs are stored 1 106-1 112 

mathematics of growth 1049-1056 

mechanics, principles of 933-939 

multi-key control 974-979 

musical chords and harmonics 985-991 
patterns from nature 1164-1 171 

prediction by computer 1 1 58-1 163 

programming function keys 825-829 
secret codes 960-965,1044-1048 

sound envelopes 

Acorn, Commodore 64 1 1 38-1 1 44 

speeding up BASIC programs 921-927 



Calendar and diary program 

1010-1016, 1017-1021, 1064-1067 

Chords, musical 

defimtion 985-986 
programs to play 

Acorn, Commodore 64 986-991 

CUflhanger game 

pan 1 — title page 904-91 3 

part 2 — adding instructions 928-932 

part 3 — adding a tune 966-973 

part 4 — graphics and merging 992-997 

parts — setting the scene 1034-1043 

part 6 — perils and rewards 1057-1063 

part 7 — initializing routine 1 101-1 105 
part 8— synchronizing routine 

1127-1131 

part 9 — scoring routine 1145-1151 

Codes, secret 950-965, 1044-1048 

Colour 

defining in machine code 1034-1043 



1164-1167 



Envelope, 

of orbits 
sound 

Acorn, Commodore 64 

958-971, 1 138-1 144 

in musical harmony programs 986-991 



Filling in with colour 



Acorn 


953-959 


Fish population program 


1170-1171 


Fox and geese game 




pan 1— principles and graphics 




1096-1100 


part 2— initializing and 




mapping the moves 


1113-U17 


part 3— higher levels 


1 152-1 157 


Fruit machine game 




1028-1033, 


1074-1080 


Function keys, programming 




Acorn, Commodore 64, Vic 20 


825-829 



Games 

chffhanger 904-913, 928-932, %6-973, 
992-997, 1034-1043, 1057-1053, 1101-1105, 
1127-1131,1145-1151 
fox and geese 

1096-1100,1113-1117, 1152-1157 

fruit machine 1028-1033, 1074-1080 

goldmine 830-837, 864-B71 

lunar touchdown 1 088-1 090 

magnification 1081-1087 

multi-key control for 974-979 

Othello 980-984, 1005-1009 

wordgame 899-903, 940-945 

Goldmine game 830-837, 864-871 

Graphics 

colour commands, Acorn 953-959 

effects using curves 857-863, 889-895 

hi-res 

for custom typeface 838-843 

setting up new commands 

Commodore 64 872-877 

magnification program for 1081-1087 



paged, for animation 

1022-1027,1132-1137 

patterns from nature 1 164-1 1 7 1 

picking and dragging 1000-1004 
rubber-banding 998-1000 

trace of sound 1092-1095 

using Teletext mode, BSC 1068-1073 

Growth, measuring 1049-1056 



generation program 



H 



Hobbles Hie, extra options for 947-952 



Instructions, adding to BASIC 
Acorn, Dragon, Spectrum 



844-851 



K 



Keypresses, multiple, programming for 

974-979 



Letter-generator program 838-843 

Lunar touchdown game 1088-1090 



M 



992-997 



Machine code 

games programming 

see chffhanger 
merging routines 
routines for hi-res graphics 

Commodore 64 872-877 

routine to alter BASIC 844-849 

timer routine 896-898 

tune routine 965-973 

Magnification program 1081-1087 

Mathematical functions 

in mechanics 935 

in spreadsheet program 1 120 

speedy use of 923-924 

to assess population tendencies 

1170-1171 
to draw curves 857-863, 889-895 

to draw patterns from orbits 

1164-1170 
to measure growth 1049-1056 

Mechanics 

programs to show principles of 933-939 

Memory 

how BASIC programs are stored in 

1106-1112 
paged graphics in 1023-1027, 1 132-1 137 

Multi-key control, programming for 

974-979 

Music 

analyzing and storing 1091-1095 

chords and harmonies 985-991 

machine code routine for 966-973 



N 







Orbits, patterns from 
Othello hsaii game 



1054-1055 



1164-1171 



980-984, 1005-1009 



Paged graphics 1023-1027, 1132-1137 
Patterns from nature 1154-1171 

PLOT 

new commands, Acorn 953-959 

Pools simulatian program 1158-1160 
Prediction by computer 1 158-1 153 



R 



RND function 

in computing probability 1 160-1 163 

Robotics 884-888 



Search routines 




binary and serial 


924-927 


in text -editor program 


914-920 


single pass 


1162-1163 


Sounds 




analyzing and storing 


1091-1095 


envelopes for modifying 




Acorn, Commodore 64 


1138-1144 


Sort routines 




in hobbies file program 


947-953 


in text-editor program 


914-920 


Speeding np BASIC programs 921-927 


Spreadsheet program 




part I 


1118-1126 


pan 2 


1172-1176 



Teletext mode, BBC 1068-1073 
Text-editor program 

part I — basic routines 852-856 

part 2— editing facilities 878-883 
part 3 — sorting, searching, 

formatting and printout 914-920 

Timer routine 

for BASIC lines 922 

machine code 896-898 

Typeface, setting up new 838-843 



V 



Variables 

managing for program speed 923-925 

setting in machine code game 1 127-1 131 

storing in memory 1 106-1 112 



w 



Numbers 

Fibonacci 



Waveforms 

displaying and storing 1092-1095 

modulation of 1138-1139,1142 

Wordgame 899-903, 940-945 



The publishers accept no responsibility for unsolicited material sent for publication in INPUT. All tapes and 
written material should be accompanied by a stamped, self-addressed envelope. 
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CJ A fearsome Martian spider, a neurotic 
window cleaner, a bevy of balloons and 
an accumulation ofarroivs are all part of 
FREDDY AND THE SPIDERS FROM 
MARS, our BASIC arcade game 

UComplete the SPREADSHEET 
program and plan your finances 

LJGot ten thumbs? Can't dravo a thing? 
GRAPHICS OF RO TA TION allows you 
to create realistic three-dimensional 
views of any shape you choose 

CJ Use statistical techniques to MODEL 
REALITY. Find out how to apply 
statistical models 

CJ Sight some circling seagulls in 
CLIFFH ANGER on the SPECTRUM, 
COMMODORE and ACORN machines 
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